标题：錯誤提示求解

独立窗口铵钮代码

For i As Integer = 0 To Tables().Count - 1
    If Tables("_物料编码").Rows(i).Checked = True Then
        Dim dr1 As Row = Tables("_物料编码").Rows(i)
        Forms("录入--采购定单").Controls("Table2").Select()
        Dim dr2 As Row = Tables("采购定单._采购定单表").AddNew()
        dr2("物料编码") = dr1("物料编码")
    End If
    e.form.Close()
Next

单击后出现

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

想知道 这个提示的大概错误原因。。。

Tables("_物料编码")没有行，就会有这个错误。

If CurrentTable.Rows.Count = 0 Then
    dr("采购行号")  = 1
Else
    dr("采购行号") =CurrentTable.Rows(CurrentTable.Rows.Count - 1)("采购行号")+1
End If

是关联子表中，增加行后事情 中的代码有问题。

For i As Integer = 0 To Tables().Count - 1
    If Tables("_物料编码").Rows(i).Checked = True Then
        Dim dr1 As Row = Tables("_物料编码").Rows(i)
        Forms("录入--采购定单").Controls("Table2").Select()
        Dim dr2 As Row = Tables("采购定单._采购定单表").AddNew()
        dr2("物料编码") = dr1("物料编码")
    End If
    e.form.Close()
Next

此代码中，Tables("_物料编码")表中的行，选择1到20行，单击按钮代码执行.选择20行以后，单击按钮，不执行代码。。。。怎么一回事尼/

说明你的文件只有21个表。

其实我都看不懂你的代码，为何这段会这样？

For i As Integer = 0 To Tables().Count - 1