共2 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：以日期为条件查找
1楼
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
2楼
有点蓝 发表于：2024/7/15 21:23:00
共2 条记录, 每页显示 10 条, 页签:
[1]