用ADO,类似: ...... rs.open "select distinct sno from A表",cn,1,1 '得到不重复的sno Combo1.Clear '清除原来的内容 while not rs.eof If not IsNull(rs(0)) Then Combo1.AddItem rs(0) '重新添加内容 rs.moveNext wend 其中的rs和cn分别是记录集对象和数据库连接对象,代码自己去补充完整
strSQL = "选取条件语句"
Set srsMGreg = New ADODB.Recordset Set srsMGreg.ActiveConnection = gDbConn srsMGreg.Open strSQL
Do Until srsMGreg.EOF cmbRe.AddItem “数据" srsMGreg.MoveNext "下一条" Loop cmbRe.Text = cmbRe.List(cmbRe.ListIndex)添加啊
......
rs.open "select distinct sno from A表",cn,1,1 '得到不重复的sno
Combo1.Clear '清除原来的内容
while not rs.eof
If not IsNull(rs(0)) Then Combo1.AddItem rs(0) '重新添加内容
rs.moveNext
wend 其中的rs和cn分别是记录集对象和数据库连接对象,代码自己去补充完整
Set srsMGreg = New ADODB.Recordset
Set srsMGreg.ActiveConnection = gDbConn
srsMGreg.Open strSQL
cmbRe.AddItem “数据"
srsMGreg.MoveNext "下一条"
Loop
cmbRe.Text = cmbRe.List(cmbRe.ListIndex)添加啊