Private Sub Form_Load()
Dim ms As ADODB.Recordset
'初始化员工ID、姓名
SQL = " select * from 员工录用信息表"
Set ms = SelectSQL(SQL, msg)
If ms.RecordCount = 0 Then
MsgBox ("请先建立员工录用信息!")
Exit Sub
Else
Do While Not ms.BOF And Not ms.EOF
'添加到ComboBox列表
CboYGID.AddItem (ms.Fields("员工ID") & ms.Fields("姓名"))
CboQuery.AddItem (ms.Fields("员工ID") & ms.Fields("姓名"))
cboQueryKH.AddItem (ms.Fields("员工ID") & ms.Fields("姓名"))
cboYG.AddItem (ms.Fields("员工ID") & ms.Fields("姓名"))
ms.MoveNext '指向下一条记录
Dim ms As ADODB.Recordset
'初始化员工ID、姓名
SQL = " select * from 员工录用信息表"
Set ms = SelectSQL(SQL, msg)
If ms.RecordCount = 0 Then
MsgBox ("请先建立员工录用信息!")
Exit Sub
Else
Do While Not ms.BOF And Not ms.EOF
'添加到ComboBox列表
CboYGID.AddItem (ms.Fields("员工ID") & ms.Fields("姓名"))
CboQuery.AddItem (ms.Fields("员工ID") & ms.Fields("姓名"))
cboQueryKH.AddItem (ms.Fields("员工ID") & ms.Fields("姓名"))
cboYG.AddItem (ms.Fields("员工ID") & ms.Fields("姓名"))
ms.MoveNext '指向下一条记录
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货