2、将订单表的ChangeEdit事件代码设置为:
If e.Col.Name = "客户ID" Then '如果编辑的是客户ID列
If e.Col.DroppedDown Then '如果下拉窗口已经打开
Dim tbl As Table = Tables("窗口1_Table1")
If e.Text = "" Then '如果内容为空
tbl.Filter = "" '显示所有客户
Else '否则根据输入内容进行模糊筛选
Dim txt As String = "'%" & e.Text & "%'"
tbl.Filter = "客户ID Like " & txt & " Or 公司名称 Like " & txt & " Or 地址 Like " & txt & " Or 联系人 Like " & txt
End If
If tbl.Rows.Count = 0 Then
MessageBox.Show("请新增")
End If
End If
End If
加好友 
发短信
Post By：2018/3/17 8:41:00 [显示全部帖子]
