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

我在一个窗口的的afterload事件中设置了如下编码：

Dim cmd As New SQLCommand

Dim dt As Date

cmd.C

cmd.CommandText = "Select GetDate()"

dt = cmd.ExecuteScalar()

e.Form.Controls("开始日期").value = dt.Date.AddDays(-365)

Dim jb As New SQLGroupTableBuilder("查询表1","租赁发货单表身")

jb.C

jb.AddTable("租赁发货单表身","发货单号","租赁发货单表头","发货单号")

Dim Cols() As String = {"发货单号","发货单序号"}

jb.AddTable("租赁发货单表身",Cols,"租赁返还单表身",Cols,JoinModeEnum.Left)

jb.AddTable("租赁返还单表身","返还单号","租赁返还单表头","返还单号")

jb.AddTable("租赁发货单表头","客户编码","客户信息设置","客户编码")

jb.AddTable("租赁发货单表身","物料编码","物料编码设置","物料编码")

jb.Groups.AddDef("{租赁发货单表头}.客户编码")

jb.Groups.AddDef("客户简称")

jb.Groups.AddDef("{租赁发货单表身}.物料编码")

jb.Groups.AddDef("物料名称") '根据产品名称分组

jb.Groups.AddDef("规格型号") '根据产品名称分组

jb.Totals.AddDef("{租赁发货单表身}.发货数量") '对数量进行统计

jb.Totals.AddDef("{租赁发货单表身}.返还数量") '对数量进行统计

jb.Totals.AddDef("{租赁返还单表身}.价税合计","租金") '对数量进行统计

jb.Filter = "{租赁发货单表头}.发货日期 >= '" & dt.Date.AddDays(-365) & "'"

jb.Build()

此时系统能出现正常的结果，如下图

此主题相关图片如下：搜狗截图20140819222005-1.png

但当我在以上代码最后加上一句

Tables("租赁发货返还汇总_Table1").DataSource = jb.BuildDataSource()

那么当我再次打开该窗口时，出现如下错误，是为什么呢？

此主题相关图片如下：搜狗截图20140819222038-2.png

主题：[求助]窗口表绑定统计表时出错