注意,上面的程序查找的字串不是完全匹配,修改一下:
Option Explicit
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const CB_SELECTSTRING = &H14D
Private Const CB_FINDSTRINGEXACT = &H158
Private Sub Command2_Click()
Dim i As Long
i = SendMessage(Combo1.hwnd, CB_FINDSTRINGEXACT, -1, ByVal rs("Utype"))
If i = -1 Then
Exit Sub
End If
Combo1.ListIndex = i
End Sub
2 如果不让客户自己在combo4里输入信息
在 combo4_change() 里 写 combo4.text="" 即可
或者
sub combo4_change()
rs2.open "Select * From tab Where Utype=" & rs("Utype") ,conn,adOpenForwardOnly, adLockReadOnly
if rs2.eof then combo4.text=""
end sub
Option Explicit
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const CB_SELECTSTRING = &H14D
Private Sub Command1_Click()
SendMessage Combo1.hwnd, CB_SELECTSTRING, 0, ByVal rs("Utype")
End Sub