主题：独占编辑

老师独占编辑有没有简便点的办法。

我有好几十个表格，每个表格都需要按教程那么设置吗？

独占编辑很简单。

 

1、dataColchanged事件，写代码

 

e.datarow("编辑者") = user.name

e.datarow.Save

 

2、startEdit事件，写

 

If e.Row.DataRow.RowState <> DataRowState.Added Then
    Dim fdr As DataRow = e.Table.DataTable.sqlfind("_Identify = " & e.Row("_Identify") ) 
    If fdr IsNot Nothing AndAlso fdr.IsNull("编辑者") = False AndAlso fdr("编辑者") <> user.name Then
        e.cancel = True
        msgbox(fdr("编辑者") & " 正在编辑")
    End If
End If

 

3、BeforeSaveDataRow事件

 

e.datarow("编辑者") = nothing

好吧，谢谢老师了

老师，我把这些命令复制到表中后，然后窗口中有个新增按钮，点击这个按钮后，就退出系统了。这是什么原因啊？

datacolchanged事件改一下

 

If e.DataCol.Name <> "编辑者" Then

    Systemready = False

    e.datarow("编辑者") = user.name

    e.datarow.Save

    Systemready = True

End If

或者

 

If e.DataCol.Name <> "编辑者" Then

    e.datarow.SQLSetValue("编辑者", user.name)

End If

12