主题：[求助]按时间分类自动编号（已解决）

 
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

或者试试

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