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

老师，我用以下代码对统计表1进行行列转换后，我用分组统计时，提示无数值型列，请问如何将第三列转变成数值型数据，可以进行分组统计呢

Dim bgzql As WinForm.ComBoBox = e.Form.Controls("ComboBox5")

'泵工基础工资

Dim g As New GroupTableBuilder("统计表1", DataTables("泵人档案"))

g.Groups.AddDef("泵工基础工资_年月","年月")

g.Totals.AddDef("泵工基础工资_杨坤怀")

g.Totals.AddDef("泵工基础工资_熊寿春")

g.Totals.AddDef("泵工基础工资_袁文杰")

g.Totals.AddDef("泵工基础工资_田进军")

g.Totals.AddDef("泵工基础工资_董泽明")

g.Totals.AddDef("泵工基础工资_许永明")

g.Totals.AddDef("泵工基础工资_董培")

g.Totals.AddDef("泵工基础工资_许银朋")

g.Totals.AddDef("泵工基础工资_杨永照")

g.Totals.AddDef("泵工基础工资_张建聪")

g.Totals.AddDef("泵工基础工资_张磊")

g.Totals.AddDef("泵工基础工资_任伟君")

g.Totals.AddDef("泵工基础工资_李建伟")

g.Totals.AddDef("泵工基础工资_杨昆奇")

g.Totals.AddDef("泵工基础工资_毕文涛")

g.Totals.AddDef("泵工基础工资_张进标")

g.Totals.AddDef("泵工基础工资_杨士民")

g.Totals.AddDef("泵工基础工资_李旋")

g.Totals.AddDef("泵工基础工资_杨建荣")

g.Totals.AddDef("泵工基础工资_毕忠诚")

g.Totals.AddDef("泵工基础工资_李正栋")

g.Filter = "[泵工基础工资_年月] = '" & bgzql.text & "'"

g.Build()

'Tables("泵送明细_Table8").DataSource = g.BuildDataSource()

DataTables("泵送明细_Table6").DataRows.Clear()

For Each adr As DataRow In DataTables("统计表1").DataRows

If adr.IsNull("年月") = False Then

For Each adc As DataCol In DataTables("统计表1").DataCols

If adc.Name.StartsWith("泵工基础工资") AndAlso adr.IsNull(adc.Name) = False Then

Dim bdr As DataRow = DataTables("泵送明细_Table6").AddNew()

bdr("第一列") = adr("年月")

bdr("第二列") = adc.Name.split("_")(1)

bdr("第三列") = adr(adc.Name)

End If

MainTable = Tables("泵送明细_Table6")

主题：[求教]临时表列数值类型