If e.Col.Name = "投播位置" Then '如果编辑的是投播位置
If e.Col.DroppedDown Then '如果下拉窗口已经打开
Dim tbl As Table = Tables("点位选择_Table1")
If e.Text = "" Then '如果内容为空
tbl.Filter = "" '显示所有客户
Else '否则根据输入内容进行模糊筛选
Dim txt As String = "'%" & e.Text & "%'"
tbl.Filter = "小区名称 Like " & txt & " Or 投播位置 Like " & txt
If e.Col.Name = "小区名称" Then '如果编辑的是小区名称
If e.Col.DroppedDown Then '如果下拉窗口已经打开
Dim tbl1 As Table = Tables("选择小区_Table1")
If e.Text = "" Then '如果内容为空
tbl1.Filter = "" '显示所有客户
Else '否则根据输入内容进行模糊筛选
Dim txt1 As String = "'%" & e.Text & "%'"
tbl1.Filter = "小区名称 Like" & txt
End If
End If
End If
End If
End If
End If
运行到第二段时说
错误所在事件：
详细错误信息：
筛选表达式“小区名称”的计算结果不是 Boolean 值项。
第一段就能正确运行，求解
加好友 
发短信
Post By：2019/9/18 11:55:00 [只看该作者]
