Foxtable(狐表)用户栏目专家坐堂 → 有条件的行数统计


  共有98人关注过本帖树形打印复制链接

主题:有条件的行数统计

美女呀,离线,留言给我吧!
朱女士
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:286 积分:2452 威望:0 精华:0 注册:2020/2/8 11:14:00
有条件的行数统计  发帖心情 Post By: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

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:93230 积分:473329 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/11/25 15:31:00 [只看该作者]

调用sql要使用SQLCommand,不是放一条sql就能自己执行的:http://www.foxtable.com/webhelp/topics/0696.htm

 回到顶部
美女呀,离线,留言给我吧!
朱女士
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:286 积分:2452 威望:0 精华:0 注册:2020/2/8 11:14:00
  发帖心情 Post By: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


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:93230 积分:473329 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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

 回到顶部