合计行，合计列代码，如下
Dim dtb As New DataTableBuilder("输入")
Dim scs As List(of String) = DataTables("表A").GetUniqueValues("","颜色")
Dim cms As List(of String) = DataTables("表A").GetUniqueValues("","尺码")
dtb.AddDef("颜色", Gettype(String), 16)
For Each cm As String In cms
dtb.AddDef(cm, Gettype(Integer), 16)
Next
dtb.AddDef("合计", Gettype(Integer), 16)
Tables("窗口1_Table1").DataSource = dtb .BuildDataSource
For Each sc As String In scs
Dim rw As Row = Tables("窗口1_Table1").AddNew
Dim rs As List(of DataRow) = DataTables("表A").Select("颜色 = '" & sc & "'")
rw("颜色") = sc
Dim sum As Integer = 0
For Each r As DataRow In rs
rw(r("尺码")) = r("数量")
sum += r("数量")
Next
rw("合计") = sum
Next
Tables("窗口1_Table1").AllowEdit = True
Dim t As Table = Tables("窗口1_Table1")
Dim ndr As Row = t.AddNew
ndr(0) = "合计"
For i As Integer = 1 To t.Cols.Count - 1
ndr(i) = t.Compute("sum(" & t.Cols(i).Name & ")")
Next
加好友 
发短信
Post By：2013/8/4 19:32:00 [显示全部帖子]
