主题：[求助]索引数！！！

错误所在事件：表，窗口1_Table2，DrawCell
详细错误信息：
调用的目标发生了异常。
索引 6 不是为负数，就是大于行数。

项目情形描述：

 

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事件中，结果是一样的

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