现在出现这个提示，请问是什么意思啊？

.NET Framework 版本：2.0.50727.3053
Foxtable 版本：2014.3.8.1
错误所在事件：窗口,登陆,Button1,Click
详细错误信息：
此行已从表中移除并且没有任何数据。BeginEdit() 将允许在此行中创建新数据

Dim r As String =e.Form.Controls("ComboBox1").Value
Dim mm As String =e.Form.Controls("TextBox1").Value
Dim kj As String=e.Form.Controls("TextBox2").Value
Dim dr As DataRow

\'在用户表查找所输入用户名与密码的行
dr = DataTables("用户").Find("[用户] = \'" & r & "\' And [密码] = \'" & mm & "\'")
If dr IsNot Nothing  Then \'如果找到
    If dr("暂停登录")=False Then
        Vars("_UserGroup") =dr("组")
        Vars("部门名称")=dr("部门名称")
        Vars("用户编码")=dr("用户编码")
        Vars("会计期间")=kj
        Tables("登陆")(0)("用户名") = r \'与入当前表第一行用户名列为输入用户名
        Tables("登陆")(0)("会计期间") = kj
        Tables("登陆")(0)("密码")=mm
        Vars("_UserName") = r \'写入全局变量
        \'Forms("登陆").BaseForm.Hide
       
        \'e.Form.Close()  \'关闭窗口
       
        For Each t As Table In Tables
        t.Visible = True
        t.AllowEdit = True
        t.AllowLockRow = True
        t.AllowUnlockRow=True
        t.AllowDelete =True
        t.AllowAddNew=True
        \'For Each c As Col In t.Cols
        \'c.Visible = True
        \'c.AllowEdit = True
        \'Next
       Next
        If Vars("_UserName")="administrator" Then
            Tables("登陆").Visible = True
            Tables("提示").Visible = True
            Tables("用户").Visible = True
            Tables("授权表").Visible = True
        Else
           
            For Each dr1 As DataRow In DataTables("bgl").Select("[bnsj] = \'True\'" )
                If  Tables.Contains(dr1("bm")) Then
                    Tables(dr1("bm")).AllowAddNew = False
                End If
            Next
           
            For Each dr1 As DataRow In DataTables("bgl").Select("[bnsc] = \'True\'" )
                If  Tables.Contains(dr1("bm")) Then
                    Tables(dr1("bm")).AllowDelete = False
                End If
            Next
           
            For Each dr1 As DataRow In DataTables("bgl").Select("[bnsh] = \'True\'" )
                If  Tables.Contains(dr1("bm")) Then
                    Tables(dr1("bm")).AllowLockRow = False
                End If
            Next
            
           

发现如果用administrator用户进去就没提示，如果用其他用户就有提示。

当关闭出错的提示后，点击那个代码按钮，就可以正常进入了。

是这里的代码问题，但我们之前都没问题的，现在2014版才会提示有错误，我删丢这段代码就没提示出错，但所有表都会显示出来了。请问为什么会这样呢？

下面这段代码的意思是，在表管理里，如果这些表名存在的话就隐藏。

For Each dr1 As DataRow In DataTables("bgl").Select("[sfkj] = \'True\'" )
                If  Tables.Contains(dr1("bm")) Then
                    Tables(dr1("bm")).Visible = False
                End If
            Next