Tables("统计表").Sort = "日期,班组ID,批次ID,工位ID,插卡时间"
Dim idx As Integer = 0
For Each dr As Row In Tables("统计表").Rows
Dim max As String = Tables("统计表").Compute("max(地址码)", "日期 = '" & dr("日期") & "' and 班组ID = '" & dr("班组ID") & "' and 批次ID = '" & dr("批次ID") & "' and 工位ID = '" & dr("工位ID") & "'")
If max > "" Then
idx = Cint(max) + 1
Else
idx = 1
End If
dr("地址码") = Format(idx,"000")
dr("加工费") = dr("单价") * dr("产量")
Next