主题：窗口中的表如何实现自动汇总

Dim ndt As new DataTableBuilder("临时")
ndt.AddDef("日期",Gettype(Date))
Dim ls As new List(Of String)
For Each dr As DataRow In DataTables("R").datarows
    For Each s As String In (dr("姓名") & "," & dr("陪同")).split(",")
        If s > "" AndAlso ls.Contains(s) = False Then
            ls.add(s)
            ndt.AddDef(s & "_数量", Gettype(Double),64)
            ndt.AddDef(s & "_金额", Gettype(Double),64)
        End If
    Next
   
Next
Tables("窗口1_Table1").DataSource = NDT.BuildDataSource()

Dim U As String
For Each dr As DataRow In DataTables("R").Select(U)
   
    Dim fdr As DataRow = DataTables("窗口1_Table1").find("日期 = #" & dr("日期") & "#")
    If fdr Is Nothing Then
        fdr = DataTables("窗口1_Table1").AddNew
        fdr("日期") = dr("日期")
       
    End If
    For Each s As String In (dr("姓名") & "," & dr("陪同")).split(",")
        If s > "" AndAlso ls.Contains(s) Then
            fdr(s & "_数量") = dr("数量")
            fdr(s & "_金额") = dr("金额")
        End If
    Next
   
Next
Tables("窗口1_Table1").GrandTotal = True