StatusBar.Message1= "正在统计"
StatusBar.ProgressBar.Visible =True
StatusBar.ProgressBar.Minimum = 0
StatusBar.ProgressBar.Maximum =DataTables("答案4").datarows.count
Dim dtb As New DataTableBuilder("领导及党组织履行职责测评统计表")
dtb.AddDef("单位",Gettype(String),50)
dtb.AddDef("单位代码",Gettype(String),8)
dtb.AddDef("职工数",Gettype(Double))
dtb.AddDef("调查人数",Gettype(Double))
Dim djs() As String = {"好","较好","一般","差"}
Dim lbs() As String = {"总体评价","党组织","负责人"}
For Each dj As String In djs
For Each lb As String In lbs
dtb.AddDef(lb & dj & "人",Gettype(Decimal),"", lb & "_"& dj &"_人数")
dtb.AddDef(lb & dj & "%",Gettype(Decimal),"", lb & "_"& dj &"_%")
Next
Next
dtb.Build()
此主题相关图片如下：履行职责.png
我想要的结果应为：
此主题相关图片如下：履行职责2.png
怎么修改代码？请指教！谢谢！
[此贴子已经被作者于2018/12/15 10:11:20编辑过]
加好友 
发短信
Post By：2018/12/15 10:04:00 [只看该作者]
