Dim dtb As New DataTableBuilder("表B")
dtb.AddDef("学期", Gettype(String), 32)
dtb.AddDef("科目", Gettype(String), 32)
For Each v As String In DataTables("表A").GetValues("姓名")
dtb.AddDef(v, Gettype(Double))
Next
dtb.AddDef("平均", Gettype(Double))
dtb.Build()
For Each v As String In DataTables("表A").GetValues("学期")
For Each dc As DataCol In DataTables("表A").datacols
If dc.name <> "学期" AndAlso dc.name <> "姓名"
Dim dr1 As DataRow = DataTables("表B").AddNew()
dr1("学期") = v
dr1("科目") = dc.name
dim sum as double = 0
Dim Arys As List(Of String()) = DataTables("表A").GetValues("姓名|" & dc.name)
For Each v2() As String In Arys
dr1(v2(0)) = v2(1)
sum+=val(v2(1))
Next
dr1("平均") = sum / Arys.count
End If
Next
Next
MainTable = Tables("表B")
加好友 
发短信
Post By：2020/11/6 11:11:00 [显示全部帖子]
