专家坐堂-以日期为条件查找Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

此主题相关图片如下：1.png