Dim b As New GroupTableBuilder("统计表","表1")
Dim dt As fxDataSource
b.Groups.AddDef("部门名称")
b.Totals.AddDef("金额","销售金额")
dt = b.BuildDataSource()
Dim b1 As New SQLCrossTableBuilder("统计表1","表2")
Dim dt1 As fxDataSource
b1.HGroups.AddDef("部门名称")
b1.VGroups.AddDef("成本大类")‘此处的成本大类名称可能会随时调整,
b1.Totals.AddDef("金额")
dt1 = b1.BuildDataSource()
上面“表2”的成本大类的名称可能会随时改变,导致交叉统计的列名称和列数都不固定,我需要计算b1各个成本大类占b中的销售的比率,由于列名称和列数不固定,用下面这种方法好象也处理不了,有没有其他办法解决呢
Dim dic As new Dictionary(of String, String)
For Each c As Col In Tables("汇总表_Table1").cols
dic.add(c.Caption, c.name)
Next
If dic.ContainsKey("销售金额") = False Then
DataTables("汇总表_Table1").dataCols.add("销售金额", Gettype(Double))
dic.add("销售金额", "销售金额")
End If