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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 满足条件的计数

共有2110人关注过本帖树形打印复制链接主题：满足条件的计数

cxmxjwlmq

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

加好友

发短信

等级：小狐帖子：342 积分：3892 威望：0 精华：0 注册：2018/4/6 18:02:00

满足条件的计数 发帖心情

Post By：2018/4/20 1:10:00 [只看该作者]

求助：我要在窗口中对满足2017年的包涵红字（红上衣、红裤子、橘红领带、、、、）的物料进行计数统计，代码不知道怎么编写，请各位老师指教

wyz20130512

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

加好友

发短信

等级：六尾狐帖子：1242 积分：9374 威望：0 精华：0 注册：2013/5/12 9:22:00

Post By：2018/4/20 8:36:00 [只看该作者]

方法一：

Dim cmd As New SQLCommand,v As Integer

cmd.Con nection Name = "数据源名称"

cmd.CommandText = "Sel ect Count(*) From {表A} Where Year(日期)=2017 And [列名] Like '%红%'"

v = cmd.ExecuteScalar

msgbox(v)

方法二：

Dim v As Integer

v = DataTables("表A").Compute("Count([_Identify])","[日期]>=#1/1/2017# And [日期]<=#12/31/2017# And [列名] Like '%红%'")

Output.Show(v)

[此贴子已经被作者于2018/4/20 9:00:31编辑过]

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/4/20 8:44:00 [只看该作者]

请具体一点问题，要怎么统计？最后得到什么效果？

上传具体的项目测试。

cxmxjwlmq

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

加好友

发短信

等级：小狐帖子：342 积分：3892 威望：0 精华：0 注册：2018/4/6 18:02:00

Post By：2018/4/20 12:11:00 [只看该作者]

Dim txt As String = e.Form.Controls("TextBox4").Text
Dim tbl As Table = Tables("部品质量查询_Table1")
If txt = "" Then
     tbl.Filter = ""
Else
     txt = "'%" & txt & "%'"
     tbl.Filter = "不良描述 Like " & txt & " Or 部件名称 Like " & txt & " Or 序号 Like " & txt & " Or 不良描述 Like " & txt
End If

甜老师：按照你已前指导的这个命令已满足了！

cxmxjwlmq

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

加好友

发短信

等级：小狐帖子：342 积分：3892 威望：0 精华：0 注册：2018/4/6 18:02:00

Post By：2018/4/20 13:44:00 [只看该作者]

老师，还是不行，上面命令只是找出红色物品的明细，无法计数统计。

我上传了附件，一个表，一个窗口，我想在窗口中通过按钮对2017年所有带“红”色的物品进行计数统计，最后得出值为3并输出报表为

年计数

2017 3

请老师指教。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.table

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/4/20 15:10:00 [只看该作者]

Dim g As New GroupTableBuilder("统计表1", DataTables("表A"))
g.Groups.AddDef("第一列")
g.Totals.AddDef("第三列", AggregateEnum.Count)
g.filter = "第三列 like '%红%'"
g.Build()
MainTable = Tables("统计表1")

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

主题：满足条件的计数