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