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

共有1579人关注过本帖树形打印复制链接主题：筛选

等待

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

加好友

发短信

等级：婴狐帖子：64 积分：538 威望：0 精华：0 注册：2017/6/4 12:55:00

筛选

Post By：2017/6/20 10:37:00 [只看该作者]

图片点击可在新窗口打开查看此主题相关图片如下：1111.png

表A中第三列，包含李四的有2行，不包含李四的有5行，能不能在一个窗口的TextBox控件中显示 “2,5”

代码是什么

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/6/20 10:41:00 [只看该作者]

Dim name As String = "李四"

Dim count1 as integer = DataTables("表A").Compute("count(_Identify)", "第三列 = '" & name & "'")

Dim count2 as integer = DataTables("表A").Compute("count(_Identify)", "")

Forms("窗口1").Controls("TextBox1").Text = count1 & "," & (count2-count1)

[此贴子已经被作者于2017/6/20 11:02:55编辑过]

等待

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

加好友

发短信

等级：婴狐帖子：64 积分：538 威望：0 精华：0 注册：2017/6/4 12:55:00

Post By：2017/6/20 10:54:00 [只看该作者]

在同一个窗口中再增加一个TextBox控件对表B中的第三列进行同样的操作，代码怎么写

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/6/20 11:03:00 [只看该作者]

Dim name As String = "李四"

Dim count1 As Integer = DataTables("表A").Compute("count(_Identify)", "第三列 = '" & name & "'")

Dim count2 As Integer = DataTables("表A").Compute("count(_Identify)", "")

Forms("窗口1").Controls("TextBox1").Text = count1 & "," & (count2-count1)

name = "李四"

count1 = DataTables("表B").Compute("count(_Identify)", "第三列 = '" & name & "'")

count2 = DataTables("表B").Compute("count(_Identify)", "")

Forms("窗口1").Controls("TextBox2").Text = count1 & "," & (count2-count1)

等待

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

加好友

发短信

等级：婴狐帖子：64 积分：538 威望：0 精华：0 注册：2017/6/4 12:55:00

Post By：2017/6/20 12:21:00 [只看该作者]

再对表A，表B加上日期筛选这样的查询结果代码怎么写

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/6/20 14:24:00 [只看该作者]

Dim name As String = "李四"

Dim d As Date = "2017-06-20"

Dim count1 As Integer = DataTables("表A").Compute("count(_Identify)", "第三列 = '" & name & "' and 日期 = #" & d & "#")

Dim count2 As Integer = DataTables("表A").Compute("count(_Identify)", "日期 = #" & d & "#")

Forms("窗口1").Controls("TextBox1").Text = count1 & "," & (count2-count1)

name = "李四"

count1 = DataTables("表B").Compute("count(_Identify)", "第三列 = '" & name & "' and 日期 = #" & d & "#")

count2 = DataTables("表B").Compute("count(_Identify)", "日期 = #" & d & "#")

Forms("窗口1").Controls("TextBox2").Text = count1 & "," & (count2-count1)

等待

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

加好友

发短信

等级：婴狐帖子：64 积分：538 威望：0 精华：0 注册：2017/6/4 12:55:00

Post By：2017/6/20 15:44:00 [只看该作者]

表A中有日期起止时间的筛选，当输入日期时，加载的行数变了，但执行上面代码所出来结果不变化

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/6/20 15:51:00 [只看该作者]

你把DataTables改成Tables就可以了。

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

主题：筛选