以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  满足条件的计数  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=117859)

--  作者:cxmxjwlmq
--  发布时间:2018/4/20 1:10:00
--  满足条件的计数

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


--  作者:wyz20130512
--  发布时间: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编辑过]

--  作者:有点甜
--  发布时间:2018/4/20 8:44:00
--  

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

 

上传具体的项目测试。


--  作者:cxmxjwlmq
--  发布时间: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
--  发布时间:2018/4/20 13:44:00
--  

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

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

年               计数

2017            3

 

请老师指教。

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table


--  作者:有点甜
--  发布时间: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")