Dim cb As WinForm.ComboBox = e.Form.Controls("ComboBox4") '定义一个变量
Dim txt As String = cb.Text '定义一个变量的值
If Len(txt) = 0 Then 'len是返回字符串的长度,如果字符串长度是0
cb.Items.Clear 'items是字符集合,表示所有的自定义列表项目,Clear是清除所有页面.
Else
If Len(txt) += 1 then
cb.ComboList = DataTables("施工项目信息").GetComboListString("工程名称", "工程名称 Like '%" & txt & "%'")
If cb.DroppedDown = False Then
cb.OpenDropDown()
End If
End If
Dim dr As DataRow = DataTables("施工项目信息").Find("工程名称 = '" & cb.Value & "'")
If dr IsNot Nothing Then
Dim ndr As Integer = Tables("施工项目信息").FindRow(dr)
If ndr >= 0 Then
Tables("施工项目信息").Position = ndr
End If
End If
End If
加好友 
发短信
Post By：2018/3/7 15:07:00 [只看该作者]
