专家坐堂-求教：下面这段代码不能在窗口中运行，运行后只有表结构，没有数据Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  求教：下面这段代码不能在窗口中运行，运行后只有表结构，没有数据  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=186868)

--  作者：散客
--  发布时间：2023/6/4 15:02:00
--  求教：下面这段代码不能在窗口中运行，运行后只有表结构，没有数据

Dim dt As DataTable
Dim dtb As New DataTableBuilder("统计123")
dtb.AddDef("称号标识", GetType(String), 16)
dtb.AddDef("日期", GetType(Date))
dtb.AddDef("企业数", GetType(Integer))
dtb.AddDef("本月产值", GetType(Double))
dtb.AddDef("产值本年累计", GetType(Double))
dtb.AddDef("当月占比", GetType(Double))
dtb.AddDef("累计占比", GetType(Double))
dtb.AddDef("当月贡献率", GetType(Double))
dtb.AddDef( "累计贡献率" , GetType(Double))
\'dt = dtb.Build()
Tables("查询与统计_table2").DataSource = dtb.BuildDataSource()
\'开始逐行累加统计
Dim lst As New Dictionary(Of String , DataRow) \'定义一个字典,用于检索每个员工在统计表中对应的行
For Each dr1 As DataRow In DataTables("产值调研数据").DataRows
If dr1.IsNull("称号标识") = False Then \'如果称号列不为空
Dim nms() As String = dr1("称号标识").Split(",") \'将称号列内容拆分成数组
Dim v As Double = dr1("企业数") / 1 \'nms.Length \'获得平均之后每个工号的生产数量（企业数不平均）
Dim ycz As Double = dr1("本月产值") \'不平均
Dim ljncz As Double = dr1("产值本年累计")
Dim yzb As Double = dr1("当月占比")
Dim ljzb As Double = dr1("累计占比")
Dim ygx As Double = dr1("当月贡献率")
Dim ljgx As Double = dr1("累计贡献率")
For Each nm As String In nms \'遍历称号
Dim dr2 As DataRow
Dim key As String = nm & "|" & dr1("日期") \'这里是关键,由称号和年度组成字典的关键词.
If lst.ContainsKey(key) Then\'如果集合中包括此关键词对应的行
dr2 = lst(key) \'将此行赋值给变量dr2
Else
dr2 = dt.AddNew() \'否则增加一行.
dr2("称号标识") = nm \'新增行的称号列设置为此称号
dr2("日期") = dr1("日期") \'设置增行的年度
lst.add(key, dr2) \'将新增行添加到字典中,以便接下来检索
End If
dr2("企业数") = dr2("企业数") + v \'加上平均后的产量（未平均）
dr2("本月产值") = dr2("本月产值") + ycz
dr2("产值本年累计") = dr2("产值本年累计") + ljncz
dr2("当月占比") = dr2("当月占比") + yzb
dr2("累计占比") = dr2("累计占比") + ljzb
dr2("当月贡献率") = dr2("当月贡献率") + ygx
dr2("累计贡献率") = dr2("累计贡献率") + ljgx


Next
End If
Next

\'dtb.BuildDataSource()
\'DataTables("统计123").DataCols("当月占比").SetFormat("0.00%")
\'DataTables("统计123").DataCols("累计占比").SetFormat("0.00%")
\'DataTables("统计123").DataCols("当月贡献率").SetFormat("0.00%")
\'DataTables("统计123").DataCols("累计贡献率").SetFormat("0.00%")
\'MainTable = Tables("统计123")
\'Tables("查询与统计_table2").DataSource = "统计123"

在命令窗口是可以运行并有数据的，关键是数据绑定Tables("查询与统计_table2").DataSource = dtb.BuildDataSource()，求教了，如何绑定到Tables("查询与统计_table2")

--  作者：有点蓝
--  发布时间：2023/6/4 19:55:00
--

……
Tables("查询与统计_table2").DataSource = dtb.BuildDataSource()
dt = DataTables("查询与统计_table2")
\'开始逐行累加统计
Dim lst As New Dictionary(Of String , DataRow) \'定义一个字典,用于检索每个员工在统计表中对应的行
……

--  作者：散客
--  发布时间：2023/6/7 10:39:00
--
谢谢