'**********************************************************************************
'从数据库中自动取字段,添加到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
'从数据库中自动取字段,添加到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