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

蓝老师，交叉统计中的 b1.HGroups.AddDef("部门人数") ，部门人数，统计表机构默认为备注型，因为要加入进行计算，如何转换为DOUBLE，我看了帮助，尝

试都不成功，请教老师怎样转换。

已经生成的表是没有办法转换的。上例子看看有没有其它办法

老师，代码如下，请您看看

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
Tables("统计_Table1").DataSource = b1.BuildDataSource()

DataTables("统计_Table1").DataCols.Add("占用",Gettype(Double))
Dim dr As Row
For i As Integer = 0 To Tables("统计_Table1").Rows.Count(True) - 1 'Integer
dr = Tables("统计_Table1").Rows(i,True)
dr("占用") = dr("合计") / dr("部门人数")
Next
Tables("统计_Table1").cols("占用").DataCol.SetFormat("0.00%")

测试窗口：统计

下载信息 [文件大小：下载次数： ]
点击浏览该文件:测试1.zip

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("部门人数"))

主题：字符转换