fpSpread之fpComboAdo的初始化

发表于 更新于 分类于 阅读次数：

初始化具有2列内容的下拉框，如下实例：

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
With fpCbodis_cd
    .Clear
    .Columns = 2
    .ColumnEdit = 0
    .Col = 0
    .ColWidth = 5
    .Col = 1
    .ColWidth = 25
    .ListWidth = 3000
    .AutoSearchFill = True
    .LineStyle = LineStyleFlat
    
    Call CloseMrec
    Mrec.Open "select dis_cd,name from ord_d_sites ", Mconn, 1, 3
    Do While Not Mrec.EOF
        .AddItem Trim(Mrec!dis_cd) & Chr(9) & Trim(Mrec!name)

        Mrec.MoveNext
    Loop
End With