专家坐堂-[求助]建表问题Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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 &"_%")

dtb.Build()