主题：窗口按钮一点击就弹出错误窗口

各位专家：您们好！

        今天在点击我设计的窗口按钮时，就弹出如下错误的提示，请问是什么原因？如何解决？

我写的窗口按钮的click事件代码如下：

Dim bd1 As New GroupTableBuilder("当前库存量",DataTables("入库表"))
Dim dt1 As fxDataSource
bd1.FromServer = True
bd1.Groups.AddDef("物料名称") '根据型号分组
bd1.Groups.AddDef("物料长代码") '根据型号分组
bd1.Totals.AddDef("实收数量","入库_数量") '对数量进行统计
bd1.Totals.AddDef("金额","入库_金额") '对金额进行统计
dt1 = bd1.BuildDataSource()

Dim bd2 As New GroupTableBuilder("统计表2",DataTables("出库表"))
Dim dt2  As fxDataSource
bd2.FromServer = True
bd2.Groups.AddDef("物料名称") '根据型号分组
bd2.Groups.AddDef("物料长代码") '根据型号分组
bd2.Totals.AddDef("实发数量","出库_数量") '对数量进行统计
bd2.Totals.AddDef("金额","出库_金额") '对金额进行统计
dt2 = bd2.BuildDataSource()

Dim bd3 As New GroupTableBuilder("统计表3",DataTables("化料信息"))
Dim dt3  As fxDataSource
bd3.FromServer = True
bd3.Groups.AddDef("物料名称") '根据型号分组
bd3.Groups.AddDef("物料长代码") '根据型号分组
bd3.Totals.AddDef("安全库存","安全库存_数量") '对数量进行统计
dt3 = bd3.BuildDataSource()

Dim nms As String() = {"物料名称","物料长代码"} '指定连接列
dt1.Combine(nms,dt2,nms) '将销售统计数据组合到进货统计数据
dt1.Combine(nms,dt3,nms) '将销售统计数据组合到进货统计数据

dt1.Show("当前库存量") '显示统计结果
MainTable = Tables("当前库存量")

With DataTables("当前库存量").DataCols  '用表达式列计算库存数据
    .Add("库存_数量",Gettype(Integer), "IsNull([入库_数量],0) - ISNULL([出库_数量],0)")
    .Add("库存_金额",Gettype(Double), "[库存_数量] /[入库_数量] * [入库_金额]")
    .Add("超出安全库存量",Gettype(Integer), "IsNull([库存_数量],0) - ISNULL([安全库存_数量],0)")
End With
DataTables("当前库存量").DataCols("库存_金额").SetFormat("0.00")

这个代码复制到命令窗口中执行无报错，但在实际使用时会报错？！

之前出现的这处问题，我把原窗口删除后重新设计窗口就解决了，而且都正常发布使用了。今天我再次打开准备在其中修改部分内容，请又出现弹出错误窗口的提示，而且是点击所有窗口都是这个错误窗口的提示，我真不知道是什么问题了。请专家们帮我好好分析并解决一下。谢谢！

我才入门不久，我不知道如何做例子。请说一下做例子的方法。谢谢！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:化料管理系统.foxdb

是这样吗？请帮测试！谢谢！

数据库文件上传时提示“文件类型不正确”？

开发者密码是“wangjianhl”

好的，已上传zip格式。

另外，我试了在开发软件中所有的窗口都会出现那个错误窗口，但我发布后程序又能正确的弹出窗口。但这样我还是无法在开发软件中进行修改，所以还是请专家们帮我检查修复。谢谢！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:化料管理系统 - 副本.zip

我执行其中的任何一个我编辑的窗口按钮都会报本贴中我发出的贴出的图片一样相同错误。