以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 有条件的行数统计 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=184149) |
-- 作者:朱女士 -- 发布时间:2022/11/25 15:28:00 -- 有条件的行数统计 老师您好! 我想统计“车间扫描表”的“jsbm”列不重复值得行数,我在窗口按钮写的代码,其中:select语句不执行,不知道什么原因,请指教,谢谢!
For Each nm As String In DataTables("车间扫描表").GetValues("jsbm") Dim dr As DataRow = DataTables("车间工序时间统计表").find("jsbm=\'" & nm & "\'") If dr Is Nothing Then dr = DataTables("车间工序时间统计表").AddNew() Dim n As Integer Select Count( * ) As n Fr m {车间扫描表} Where jsbm = \'" & nm & "\'" MessageBox.Show(n) End If Next |
-- 作者:有点蓝 -- 发布时间:2022/11/25 15:31:00 -- 调用sql要使用SQLCommand,不是放一条sql就能自己执行的:http://www.foxtable.com/webhelp/topics/0696.htm |
-- 作者:朱女士 -- 发布时间:2022/11/25 16:42:00 -- 老师您好! 本人实在是弄不出来了,还得请教您!我就是逐行判断jsbm列不重复值,然后统计行数,我的下面代码是统计了所有行,没有按条件统计。请指教,谢谢! For Each nm As String In DataTables("车间扫描表").GetValues("jsbm") Dim dr As DataRow = DataTables("车间工序时间统计表").find("jsbm=\'" & nm & "\'") If dr Is Nothing Then dr = DataTables("车间工序时间统计表").AddNew() Dim pr As DataRow = DataTables("车间扫描表").find("jsbm=\'" & nm & "\'") Dim n As Integer Dim dt As DataTable = DataTables("车间扫描表") n = dt.Compute("Count(jsbm)", pr("jsbm") & "=\'" & nm & "\'") MessageBox.Show(n) End if Next |
-- 作者:有点蓝 -- 发布时间:2022/11/25 16:45:00 -- For Each nm As String In DataTables("车间扫描表").GetValues("jsbm") Dim dr As DataRow = DataTables("车间工序时间统计表").find("jsbm=\'" & nm & "\'") If dr Is Nothing Then dr = DataTables("车间工序时间统计表").AddNew() dr("jsbm") =nm endif dr("行数") = DataTables("车间扫描表").Compute("Count(jsbm)", "jsbm=\'" & nm & "\'")next
|