项目总是出错，请帮修改 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

请帮修改。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目2.foxdb

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

[此贴子已经被作者于2016/5/24 17:37:58编辑过]

就是打开这个项目，点如上命令控件出错。想一次生成上百个图，但不能自动生成。

就是批处理，原来选择一次生成一个图，现在想模拟点窗口的按钮，不断重复，一次生成很多图。打开项目一试就知道了

[此贴子已经被作者于2016/5/24 18:10:57编辑过]

就写在画箭头的控件中。能生成大约12个图，就会出错了。
图片点击可在新窗口打开查看

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

其中

Dim cs As String() = y.Split(",")

Dim lh As Integer

Dim ar As String = ""

Dim first As Integer = CurrentTable.HeaderRows + 1 '数据记录的起始行

Dim last As Integer = CurrentTable.HeaderRows + CurrentTable.Rows.Count '数据记录的结束行

黄色代码为新加的一句，能按要求生成12个图，但会有上面的提示错误

项目中的“数据表”进行测试，点“图表设置”窗中的button8进行测试，将这句代码Dim ar As String改为 Dim ar As String = ""后，能正确生成10个图，但后面就出错了。

重新上传了项目，请查看

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目2.zip

已经查出问题了，原来是foxtable示例文件“EXCEL.图表”错误，其中的函数Functions.Execute("App_ColChr",lh)中的代码有错误，当lh=53这个值时，试一试就知道错了，是一个很不容易查出的错误，一般不会有这样大的数，所以不会出错，我已经对此函数修改，可以正确运行，解决了问题。

主题：项目总是出错，请帮修改