'从数据库中自动取字段，添加到Combo中，Combo的选项随着数据库中相应字段数据的变化而变化

来源：互联网发布：base64编码数据库类型编辑：程序博客网时间：2024/06/14 16:23

'**********************************************************************************
'从数据库中自动取字段，添加到Combo中，Combo的选项随着数据库中相应字段数据的变化而变化
'**********************************************************************************
    'Dim rsMSHF As ADODB.Recordset
    Set rsMSHF = Gconn.Execute("select * from db87_12cbxiangzhong order by liushuihao") 'Set rsMSHF = Gconn.Execute("select * from GongXuSheZhi where GongXuXiTongBianHao = '" & Left(Trim(G_System), 1) & "' and YouWuGongXuKuCun = '1' ")

    With Cmbo87_02qibxianzhong
        .Clear
        While Not rsMSHF.EOF
            .AddItem (rsMSHF(1)) '(rsMSHF(1))也可以替换为rsMSHF.Fields(1),Combo1.AddItem (rsMSHF.Fields(1) + "-" + rsMSHF.Fields(2))
            rsMSHF.MoveNext
        Wend
        .Text = .List(0)
    End With

    rsMSHF.Close
    Set rsMSHF = Nothing