主题：[求助]窗口中的数据操作，报beginedit()将允许...

你有没有加return哦

 

Dim msg As String = e.Message1
If msg.Contains("此行已从表中移除并且") Then e.Cancel = True : Return

 

肯定是别的代码影响。代码试试这样写

 

SystemReady = False
With CurrentTable
    If .Current IsNot Nothing Then
        .Current.Reject()
    End If
End With
Tables("员工表").AllowEdit=False
Forms("员工维护").Close()
SystemReady = true

我已经改成了ACCESS数据库，还是老样子。

附件呢?

开始试e.Message1时是有加的，我自己试e.Message2的时候把return放下一行了

刚才附件放不上了

 测试了一下，预计原因，是你的数据表没有_Identify系统列，且并没有把_Identify设置成主键列造成的错误。

 

 但是，我测试并没有你所说的错误......怎么操作能出错？

登录后点击信息中心--》员工信息，然后点击“添加”按钮，等弹出添加界面后什么也不填，然后点击关闭按钮，有时候第一次不报错，第二次就会报了。

 回复19楼，是18楼的原因。

 

 你需要特殊处理一下，添加按钮的代码这样写

 

Case "添加"
        '跳出维护窗口
        With Tables("员工表1")
        If .Current Is Nothing OrElse .Current.DataRow.RowState = DataRowState.Unchanged Then '如果当前行未曾修改               
            Dim nr1 As Row = .AddNew()
            Dim nr2 As Row = .AddNew()
            nr1("姓名") = Date.Now
            nr2.Delete
            Vars("G_员工表操作")="添加"
        End If
        End With
        Forms("员工维护").open()