专家坐堂-判断条件下的窗口筛选！Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  判断条件下的窗口筛选！  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=30476)

--  作者：wqb1102
--  发布时间：2013/3/28 13:15:00
--  判断条件下的窗口筛选！

1、客户表中每个客户都确定所属县
2、当前表中已录入县名
问题：首先根据已录入的县列出本县所有客户，再可以根据录入的字符进行筛选。想根据下面公式修改，如何改。
Dim txt As String = e.Form.DropDownBox.Text
Dim tbl As Table = Tables("窗口1_Table1")
If txt = "" Then
Tables("窗口1_Table1").Filter = ""
Else
txt = "\'*" & txt & "*\'"
tbl.Filter = "客户ID Like " & txt & " Or 公司名称Like " & txt & " Or 地址Like
" & txt & " Or 联系人Like " & txt
End If
e.Form.DropDownBox.Select()

--  作者：狐狸爸爸
--  发布时间：2013/3/28 14:38:00
--
tbl.Filter = "(客户ID Like " & txt & " Or 公司名称Like " & txt & " Or 地址 Like " & txt & " Or 联系人Like " & txt & ") And 县列 = \'" & tbl.Current("县列") & "\'"

--  作者：wqb1102
--  发布时间：2013/3/28 15:14:00
--
出现：编绎错误：应为语句结束

--  作者：狐狸爸爸
--  发布时间：2013/3/28 15:18:00
--
Dim txt As String = e.Form.DropDownBox.Text
Dim tbl As Table = Tables("窗口1_Table1")
If txt = "" Then
    Tables("窗口1_Table1").Filter = ""
Else
    txt = "\'*" & txt & "*\'"
    tbl.Filter = "(客户ID Like " & txt & " Or 公司名称Like " & txt & " Or 地址 Like " & txt & " Or 联系人Like " & txt & ") And 县列 = \'" & tbl.Current("县列") & "\'"
End If
e.Form.DropDownBox.Select()

--  作者：wqb1102
--  发布时间：2013/3/28 15:28:00
--
已解决，多谢狐爸

--  作者：wqb1102
--  发布时间：2013/3/28 16:13:00
--
不好意思，，确实出现：编绎错误：应为语句结束

--  作者：wqb1102
--  发布时间：2013/3/28 16:37:00
--

Dim txt As String = e.Form.DropDownBox.Text

Dim tbl As Table = Tables("客户录入_Table1")

If txt = "" Then

    Tables("客户录入_Table1").Filter = ""

Else

    txt = "\'*" & txt & "*\'"

    tbl.Filter = "("客户 Like " & txt & " Or 区域经理 Like " & txt & " Or 手机 Like " & txt & " Or 联系人 Like " & txt & " Or 电话 Like" & txt & ") And 县 = \'" & tbl.Current("县") & "\'"

End If

    e.Form.DropDownBox.Select()
提示： tbl.Filter = "("客户 Like " & txt & " Or 区域经理 Like " & txt & "  Or 手机 Like " & txt & " Or 联系人 Like " & txt & " Or 电话 Like" & txt & ") And 县 = \'" & tbl.Current("县") & "\'"
应为语句结束

--  作者：狐狸爸爸
--  发布时间：2013/3/28 16:42:00
--

呵呵，复制粘贴，居然你都出错：

Dim txt As String = e.Form.DropDownBox.Text
Dim tbl As Table = Tables("客户录入_Table1")
If txt = "" Then
    Tables("客户录入_Table1").Filter = ""
Else
    txt = "\'*" & txt & "*\'"
    tbl.Filter = "(客户 Like " & txt & " Or 区域经理 Like " & txt & " Or 手机 Like " & txt & " Or 联系人 Like " & txt & " Or 电话 Like" & txt & ") And 县 = \'" & tbl.Current("县") & "\'"
End If
e.Form.DropDownBox.Select()

--  作者：wqb1102
--  发布时间：2013/3/28 16:43:00
--
是增加： And 县 = \'" & tbl.Current("县") & "\'" 后出现的提示错误

--  作者：狐狸爸爸
--  发布时间：2013/3/28 16:45:00
--
10楼