下面代码之中怎样去掉查询的重复记录
Adodc1.RecordSource = "select * from 数据表 "
Adodc1.Refresh
If Adodc1.Recordset.RecordCount = 0 Then Exit Sub
For i = 0 To Adodc1.Recordset.RecordCount - 1
Combo1.AddItem Adodc1.Recordset.Fields(0).Value
Adodc1.Recordset.MoveNext
Next
On Error Resume Next
Adodc1.RecordSource = "select * from 数据表 "
Adodc1.Refresh
If Adodc1.Recordset.RecordCount = 0 Then Exit Sub
For i = 0 To Adodc1.Recordset.RecordCount - 1
Combo1.AddItem Adodc1.Recordset.Fields(0).Value
Adodc1.Recordset.MoveNext
Next
On Error Resume Next
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货