主题：錯誤提示求解

独立窗口铵钮代码

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

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