Dim dtb As New DataTableBuilder("统计")
dtb.AddDef("姓名", Gettype(String), 32)
dtb.AddDef("单位", Gettype(String), 32)
dtb.AddDef("稿费", Gettype(Double))
dtb.Build()
Dim dict As new Dictionary(of String,Double)
For Each r As Row In Tables("稿件").Rows
Dim ar() As String = r("姓名").split(",")
Dim fy As Double = r("稿费") / ar.Length
For Each s As String In ar
If dict.ContainsKey(s) Then
dict(s) = dict(s) + fy
Else
dict.Add(s,fy)
End If
Next
Next
Dim dr,d2 As DataRow
For Each key As String In dict.Keys
dr = DataTables("统计").AddNew
dr("姓名") = key
dr("稿费") = dict(key)
d2 = DataTables("通讯员").Find("姓名='" & key & "'")
If d2 IsNot Nothing Then
dr("单位") = d2("单位")
End If
Next
Dim g As New GroupTableBuilder("统计表1", DataTables("统计"))
g.Groups.AddDef("单位")
g.Groups.AddDef("姓名")
g.Totals.AddDef("稿费")
g.GroupProportion = True
g.Build()
MainTable = Tables("统计表1")
加好友 
发短信
Post By：2020/3/16 15:05:00 [显示全部帖子]
此主题相关图片如下：1.png