动态绑定临时表代码出错 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim tb1 As Table = Tables(e.Form.Name & "_Table1")

Dim g As New GroupTableBuilder("社保统计表1", DataTables("年度社保库"))

Dim dt As DataTable

g.Groups.AddDef("年度")

g.Groups.AddDef("月份")

g.Groups.AddDef("缴纳方式")

g.Totals.AddDef("姓名", AggregateEnum.Count, "人数")

g.FromServer = True

dt = g.Build(True)

Dim dtb As New DataTableBuilder("表BB")

dtb.AddDef("年度",Gettype(Integer),10)

dtb.AddDef("月份",Gettype(Integer),10)

For Each v As String In dt.GetValues("缴纳方式")

dtb.AddDef(v, Gettype(Double))

dtb.Build()

For Each v As String() In dt.GetValues("年度|月份") 'DataTables("社保统计表1").

Dim dr1 As DataRow = DataTables("表BB").AddNew()

dr1("年度") = v(0)

dr1("月份") = v(1)

For Each dr2 As DataRow In dt.Select("年度 = " & v(0) & " And 月份 = " & v(1))

dr1(dr2("缴纳方式")) = dr2("人数")

DataTables("表BB").DataCols.Add("总数",Gettype(Double),"[标准缴纳] + [公司统缴]")

tb1.DataSource = = dtb.BuildDataSource()

此主题相关图片如下：qq截图20190418133851.png

主题：动态绑定临时表代码出错