主题：独占式编辑在普通表中如何运用？

 增加一列   编辑人
StartEdit代码 ：

e.Table.Current.DataRow.Load
If e.Row("编辑人")<>"" AndAlso e.Row("编辑人") <> User.Name
    MessageBox.Show("其他用户正在操作此订单,请稍后再进行操作","提示")
End If

BeforeSelChange代码：

If e.OldRange.RowSel <> e.NewRange.RowSel
    If e.OldRange.RowSel >= 0 AndAlso e.OldRange.Rowsel < e.Table.Rows.Count Then
        Dim r1 As Row = e.Table.Rows(e.OldRange.Rowsel)
        Dim r2 As Row = e.Table.Rows(e.NewRange.Rowsel)
        r1.DataRow.Load
        r2.DataRow.Load
        If r1.DataRow("编辑人")= User.Name Then
            r1.DataRow("编辑人")=""
            r1.Save
        End If
        If r2.DataRow("编辑人")="" Then
            r2.DataRow("编辑人")= User.Name
            r2.Save
        ElseIf r2.DataRow("编辑人")<>"" And r2.DataRow("编辑人")<>User.Name Then
            MessageBox.Show("其他用户已经在操作此订单,请稍后再操作","提示")
        End If
    End If
End If

BeforeCloseObject代码：
 For Each r As DataRow In DataTables("表明").DataRows
    If r("编辑人")=User.Name Then
        r("编辑人")=""
    End If
Next