以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  以日期为条件查找  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=192714)

--  作者:nuoyan89
--  发布时间:2024/7/15 20:51:00
--  以日期为条件查找
老师,标注红色的我增加了实际加工日期为条件计算,现在提示如图1异常,请帮忙看看,谢谢
        Dim s ql2 As String = "Sele ct * from 工序跟踪表 as a2 where exists(s elect * from 工序跟踪表 as b2 where " & Forms("生产报工查询").controls("生产报工查询表").Table.DataTable.Load Filter & " And a2.实际加工日期 = b2.实际加工日期 And  a2.加工工序 = b2.加工工序 And a2.使用设备 = b2.使用设备 And a2.姓名 = b2.姓名)"
        Dim b2 As New Group Tab leBuilder("统计表1", sql2, "条码扫描系统数据库")
        b2.G roups.AddDef("实际加工日期") \'根据产品分组
        b2.Groups.AddDef("姓名") \'根据产品分组
        b2.Groups.AddDef("使用设备") \'根据产品分组
        b2.Groups.AddDef("生产批次") \'根据产品分组
        b2.Groups.AddDef("加工工序") \'根据产品分组
        b2.Totals.AddDef("合格品") \'对数量进行统计
        b2.Totals.AddDef("检测次数") \'对数量进行统计
        Dim dt2 As DataTable = b2.Build(True)
        Dim dr6 As DataRow

        For Each dr5 As Row In Tables("点检次数查询_点检记录").Rows
            dr6 = dt2.find("实际加工日期 = \'" & 实际加工日期 & "\' and 加工工序 = \'" & dr5("加工工序") & "\'and 使用设备 = \'" & dr5("使用设备") & "\'and 生产批次 = \'" & dr5("生产批次") & "\'")
            If dr6 IsNot Nothing Then
                dr5("合格品") = dr6("合格品")
                dr5("检测次数") = dr6("检测次数")
            End If
        Next
        
图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2024/7/15 21:23:00
--  

b2.G roups.AddDef("实际加工日期",
DateGroupEnum.none