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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 判断条件下的窗口筛选！

共有7513人关注过本帖树形打印复制链接主题：判断条件下的窗口筛选！

wqb1102

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：321 积分：2210 威望：0 精华：0 注册：2008/8/31 22:37:00

判断条件下的窗口筛选！ 发帖心情

Post By：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()

狐狸爸爸

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2013/3/28 14:38:00 [只看该作者]

tbl.Filter = "(客户ID Like " & txt & " Or 公司名称Like " & txt & " Or 地址 Like " & txt & " Or 联系人Like " & txt & ") And 县列 = '" & tbl.Current("县列") & "'"

wqb1102

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：321 积分：2210 威望：0 精华：0 注册：2008/8/31 22:37:00

Post By：2013/3/28 15:14:00 [只看该作者]

出现：编绎错误：应为语句结束

muhua	小大 4楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：等待验证帖子：3855 积分：20692 威望：0 精华：5 注册：2012/6/21 14:03:00	Post By：2013/3/28 15:18:00 [只看该作者] 用户已被锁定

狐狸爸爸

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：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

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：321 积分：2210 威望：0 精华：0 注册：2008/8/31 22:37:00

Post By：2013/3/28 15:28:00 [只看该作者]

已解决，多谢狐爸

wqb1102

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：321 积分：2210 威望：0 精华：0 注册：2008/8/31 22:37:00

Post By：2013/3/28 16:13:00 [只看该作者]

不好意思，，确实出现：编绎错误：应为语句结束

muhua	小大 8楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：等待验证帖子：3855 积分：20692 威望：0 精华：5 注册：2012/6/21 14:03:00	Post By：2013/3/28 16:21:00 [只看该作者] 用户已被锁定

wqb1102

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：321 积分：2210 威望：0 精华：0 注册：2008/8/31 22:37:00

Post By：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("县") & "'"

应为语句结束

狐狸爸爸

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：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()

下一主题 >> << 上一主题

总数 19 1 2 下一页

主题：判断条件下的窗口筛选！