主题：再次讨教：三表汇总-已解决

For Each str As String In lstdate
    Dim lstMP As List(of DataRow) = dt.Select("日期 = #" & str & "# and 单号 like 'MP%'","单号")
    Dim lstRK As List(of DataRow) = dt.Select("日期 = #" & str & "# and 单号 like 'RK%'","单号")
    Dim lstCK As List(of DataRow) = dt.Select("日期 = #" & str & "# and 单号 like 'CK%'","单号")
    Dim Max As Integer = math.Max(math.Max(lstMP.Count,lstRK.Count),lstCK.Count)
    t.AddNew(max)
    For IntA As Integer = 0 To Max - 1
        Dim r As Row = t.Rows(IntA + Int)
        r("日期") = cdate(str)
        If lstMP.Count - 1 >= IntA Then
            r("毛胚入库单号") = lstMP(IntA)("单号")
            r("毛胚入库数量") = lstMP(IntA)("数量")
            r("毛胚单价") = lstMP(IntA)("单价")
            IntMP = IntMP  + r("毛胚入库数量")
        End If
        If lstRK.Count - 1 >= IntA Then
            r("电镀入库单号") = lstRK(IntA)("单号")
            r("电镀入库数量") = lstRK(IntA)("数量")
            r("电镀单价") = lstRK(IntA)("单价")
            IntMP = IntMP - r("电镀入库数量")
            IntRK = IntRK + r("电镀入库数量")
        End If
        r("毛胚库存") = intMP  ''若每行显示,移到条件外
        If lstCK.Count - 1 >= IntA Then
            r("出库单号") = lstCK(IntA)("单号")
            r("出库数量") = lstCK(IntA)("数量")
            r("出库单价") = lstCK(IntA)("单价")
            IntRK = IntRK - r("出库数量")
        End If
        r("电镀库存") = intRK  '若每行显示,移到条件外
    Next IntA
    Int = Int + max
Next