以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求教]临时表列数值类型 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=137125) |
-- 作者:hcfbehero -- 发布时间:2019/6/28 10:33:00 -- [求教]临时表列数值类型 老师,我用以下代码对统计表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 Next End If Next MainTable = Tables("泵送明细_Table6") |
-- 作者:有点甜 -- 发布时间:2019/6/28 11:26:00 --
你应该去修改表【泵送明细_Table6】的结构,把第三列,改成数值列,才可以。
|