以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]索引数！！！  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=67537)
--  作者：liuxianjie1980
--  发布时间：2015/4/25 18:14:00
--  [求助]索引数！！！
错误所在事件：表，窗口1_Table2，DrawCell
详细错误信息：
调用的目标发生了异常。
索引 6 不是为负数，就是大于行数。
--  作者：liuxianjie1980
--  发布时间：2015/4/25 18:36:00
--  

项目情形描述：

 

1.点击某一窗口中的按钮控件，打开一个名为“窗口1”的窗口；

2.“窗口1”中的afterload时间代码：

 

Dim filter As String
Filter = "项目名称=\'" & Tables("项目信息库").current("项目名称") & "\'"
DataTables("任务").loadFilter = Filter \'设置加载条件
DataTables("任务").load()
Functions.Execute("BuildGanttTable")

 

言外之意：窗口1中的table1中的数据是进行了筛选之后加载的

 

3.本项目中筛选出来的记录为6条，所以才出现了上述的错误提示。

 

 

4.内部函数的addGanttRows的代码如下，未改动过（教程）：

 

Dim tbl As DataTable = DataTables("窗口1_Table2")
tbl.StopRedraw
tbl.DataRows.Clear()
For i As Integer = 1 To Tables("任务").Rows.Count
    tbl.AddNew()
Next
tbl.Save()
tbl.ResumeRedraw

 

 

综上述：我觉得应该是

For i As Integer = 1 To Tables("任务").Rows.Count

 

会不会有问题？？？

 

 

曾经怀疑会不会是table1的加载出现的晚了点，就把filter放在那个按钮的click事件中，结果是一样的
[此贴子已经被作者于2015/4/25 18:38:43编辑过]
--  作者：游
--  发布时间：2015/4/25 19:04:00
--  
For i As Integer = 0 To Tables("任务").Rows.Count - 1