TextChanged事件
Dim idx As Integer = Tables("客户").FindRow("客户名称 = '" & e.Sender.Text & "'")
If idx >= 0 Then
Tables("客户").Position = idx
End If
加好友 
发短信
Post By：2016/4/22 16:22:00 [显示全部帖子]
