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

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

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

FoxMan

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

等级：小狐帖子：302 积分：1860 威望：0 精华：0 注册：2012/4/27 11:34:00

Post By：2013/3/28 16:59:00 [显示全部帖子]

短句式:

Dim txt ,s1,Flt As String

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

Dim Lms() As String = "客户, 区域经理 ,手机,联系人".split(",")

txt = e.Form.DropDownBox.Text

If txt IsNot Nothing Then

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

For Each s1 In Lms

Flt+ =" Or " & s1 & " Like " & txt

Flt ="(" & Flt.Substring(4) & ")"

s1 =" And 县 = '" & tbl.Current("县") & "'"

Flt+ = s1

End If

tbl.Filter = Flt

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