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


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

主题:有条件的行数统计

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


加好友 发短信
等级:二尾狐 帖子:513 积分:4073 威望: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


加好友 发短信
等级:二尾狐 帖子:513 积分:4073 威望: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


 回到顶部