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


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

主题：有条件的行数统计
美女呀，离线，留言给我吧！
朱女士
 小大  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


加好友 发短信
等级：超级版主 帖子：111374 积分：566934 威望：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


加好友 发短信
等级：二尾狐 帖子：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
 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111374 积分：566934 威望：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
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.02734 秒, 4 次数据查询