怎样去掉查询的重复记录
下面代码之中怎样去掉查询的重复记录
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
[解决办法]
方法一：采用你的原有思路
Private Declare Function SendMessagebyString Lib _
"user32" Alias "SendMessageA" (ByVal hWND As Long, _
ByVal wMsg As Long, ByVal wParam As Long, _
ByVal lParam As String) As Long
Private Const CB_FINDSTRINGEXACT = &H158 '在 ComboBox 中精确查找
Adodc1.RecordSource = "select * from 数据表 "
Adodc1.Refresh
Do Until Adodc1.Recordset.EOF
If SendMessagebyString(Combo1.hWnd, CB_FINDSTRINGEXACT, -1, Adodc1.Recordset.Fields(0)) = -1 Then
Combo1.AddItem Adodc1.Recordset.Fields(0).Value
Adodc1.Recordset.MoveNext
End If
Loop
