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

完整的出错例子，请上传，不是1楼的代码所应该有的错误，别的地方影响了。

你给的例子，是外部数据源的，无法测试啊。你弄成内部表，或者access数据源的，打包发上来。

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

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

 测试了一下，预计原因，是你的数据表没有_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()