主题：已解决--[求助]三议"临时表增加合计行合计列"之列名问题

Dim dtb As New DataTableBuilder("输入")
Dim scs As List(of String) = DataTables("OrderColorSize").GetUniqueValues("OrderID = 'ACT201308-004'","StyleColor")
Dim cms As List(of String) = DataTables("OrderColorSize").GetUniqueValues("OrderID = 'ACT201308-004'","StyleSize")
dtb.AddDef("StyleColor", Gettype(String), 16,"","颜色\规格")

Dim cs As String = ""
Dim cname As Integer = 0
For Each cm As String In cms
dtb.AddDef("Size" & cname, Gettype(Integer), 16,"",cm)
If cm = "" Or cm Is Nothing Then cm="0"
cs += "isnull(" & cm & ",0,) +"
cname += cname + 1
Next
cs = cs.Trim("+")
dtb.AddDef("合计", Gettype(Integer), cs)

Tables("订单录入_TableColorSize").DataSource = dtb .BuildDataSource
For Each sc As String In scs
Dim rw As Row = Tables("订单录入_TableColorSize").AddNew
Dim rs As List(of DataRow) = DataTables("OrderColorSize").Select("StyleColor = '" & sc & "' And OrderID = 'ACT201308-004'")
rw("StyleColor") = sc
For Each r As DataRow In rs
rw(r("StyleSize")) = r("StyleNum")
Next
Next
Tables("订单录入_TableColorSize").AllowEdit = True

Dim t As Table = Tables("订单录入_TableColorSize")
Dim ndr As Row = t.AddNew
ndr(0) = "合计"
For i As Integer = 1 To t.Cols.Count - 2
ndr(i) = t.Compute("sum(" & t.Cols(i).Name & ")")
Next

Dim dtb As New DataTableBuilder("输入")
Dim scs As List(of String) = DataTables("表A").GetUniqueValues("订单号 = '0001'","颜色")
Dim cms As List(of String) = DataTables("表A").GetUniqueValues("订单号 = '0001'","尺码")
dtb.AddDef("颜色", Gettype(String), 16)

Dim cs As String = ""
For Each cm As String In cms
dtb.AddDef("尺码" & cm.trim("#"), Gettype(Integer), 16)
If cm = "" Or cm Is Nothing Then cm="0"
cs += "isnull(" & "尺码" & cm.trim("#") & ",0,) +"
Next
cs = cs.Trim("+")
dtb.AddDef("合计", Gettype(Integer), cs)

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 & "' And 订单号 = '0001'")
rw("颜色") = sc
For Each r As DataRow In rs
rw("尺码" & r("尺码").trim("#")) = r("数量")
Next
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 - 2
ndr(i) = t.Compute("sum(" & t.Cols(i).Name & ")")
Next