Dim b1 As New SQLCrossTableBuilder("统计表2","工作策划副表")
b1.C
b1.HGroups.AddDef("项目名称")
b1.HGroups.AddDef("设计阶段")
b1.HGroups.AddDef("部门人数")
b1.VGroups.AddDef("专业部室","专业部室_{0}")
b1.Totals.AddDef("专业部室",AggregateEnum.Count)
'b1.Filter = "审批完成 = 0"
b1.HorizontalTotal = True
b1.VerticalTotal = True
'b1.Build '生成统计表
'MainTable = Tables("统计表2") '打开生成的统计表
Tables("统计_Table1").DataSource = b1.BuildDataSource()
Dim t As Table = Tables("统计_Table1")
Dim dt As DataTable = t.DataTable
dt.DataCols.Add("变电派工比例",Gettype(Double)) '已经增加
dt.DataCols.Add("配电派工比例",Gettype(Double)) '没有显示增加???
dt.DataCols.Add("线路派工比例",Gettype(Double)) '没有显示增加???
dt.datacols("变电派工比例").SetFormat("0.00%")
t.cols("配电派工比例").DataCol.SetFormat("0.00%")
t.cols("线路派工比例").DataCol.SetFormat("0.00%")
Dim dr As Row
For i As Integer = 0 To t.Rows.Count(True) - 1 'Integer
dr = t.Rows(i,True)
dr("变电派工比例") = dr("专业部室_1") / val(dr("部门人数"))
dr("配电派工比例") = dr("专业部室_2") / val(dr("部门人数"))
dr("线路派工比例") = dr("专业部室_3") / val(dr("部门人数"))
Next
加好友 
发短信
Post By：2016/12/27 21:03:00 [显示全部帖子]
