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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]筛选

共有10188人关注过本帖树形打印复制链接主题：[求助]筛选

有点蓝

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

加好友

发短信

等级：超级版主帖子：106132 积分：539771 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/7/21 8:26:00 [显示全部帖子]

Dim cbo As WinForm.ComboBox = e.Form.Controls("ComboBox1")

Dim Filter As String

If cbo.text > "" Then

Dim nane As String

For Each c As Col In Tables("表A").Cols

If c.Caption = cbo.text Then

nane = c.Name

Exit For

End If

Filter = nane

With e.Form.Controls("TextBox1")

Filter = Filter & " like '%" & .Value & "%'"

End With

End If

Tables("表A").Filter = Filter

有点蓝

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

加好友

发短信

等级：超级版主帖子：106132 积分：539771 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/11/9 16:59:00 [显示全部帖子]

在之前筛选条件上加条件，如

dim f as string = ""xxx新条件"

tables("xx").filter = tables("xx").filter & IIF(tables("xx").filter > ""," and ","") & f

有点蓝

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

加好友

发短信

等级：超级版主帖子：106132 积分：539771 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/11/10 9:06:00 [显示全部帖子]

参考：http://www.foxtable.com/webhelp/topics/1523.htm

有点蓝

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

加好友

发短信

等级：超级版主帖子：106132 积分：539771 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/11/10 10:24:00 [显示全部帖子]

就是加一个条件的问题

ComboBox3事件

Dim cmb As WinForm.ComboBox = e.Sender

Dim str As String = e.Form.Controls("ComboBox2").Value

Dim str1 As String = e.Form.Controls("ComboBox1").Value

cmb.ComboList = DataTables("表A").GetComboListString("颜色", "规格 = '" & str & "' and 型号= '" & str1 & "'")

有点蓝

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

加好友

发短信

等级：超级版主帖子：106132 积分：539771 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/11/10 10:44:00 [显示全部帖子]

&是代码连接字符串的用法

and是表达式多个条件“与”的用法，表示多个条件同时有效

有点蓝

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

加好友

发短信

等级：超级版主帖子：106132 积分：539771 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/11/14 12:06:00 [显示全部帖子]

没看懂。请截图举例说明

有点蓝

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

加好友

发短信

等级：超级版主帖子：106132 积分：539771 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/11/14 14:09:00 [显示全部帖子]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:填值判断测试.zip

有点蓝

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

加好友

发短信

等级：超级版主帖子：106132 积分：539771 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/1/4 9:02:00 [显示全部帖子]

Tables("表A").Filter = "a is not null or b is not null or..........."

有点蓝

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

加好友

发短信

等级：超级版主帖子：106132 积分：539771 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/1/14 8:51:00 [显示全部帖子]

Tables("表A").Filter = "a is not null and b is not null and c is null and d is null "

有点蓝

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

加好友

发短信

等级：超级版主帖子：106132 积分：539771 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/10/11 16:34:00 [显示全部帖子]

参考：http://www.foxtable.com/webhelp/topics/0550.htm

Tables("表A").Select(Tables("表A").Rows.count -1 ,0)

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

总数 29 上一页 1 2 3 下一页

主题：[求助]筛选