主题：[求助]窗口修改时怎么体现独占式编辑

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:复件 (2) 管理项目1.table

这个事例里面做了《内供挂单》的窗口，操作如下：

选中窗口内下方《内供》副表的“左客户”或“左厚度”列的行以后，双击窗口上方《订单》副表的任意订单行，可以看到所选《内供》副表的“左客户”数据被修改。

问题：

在多个帐号同时使用的情况下（有的人修改主表、有的人修改副表），《内供》副表被修改时，独占式编辑就不起作用了，怎么办？我需要的是不管是不是通过窗口修改，都要体现独占式编辑。

这里的独占式编辑是指帮助文件里面介绍的“工作流-独占式编辑”功能。

在Datacolchanging事件，加入代码

If e.DataCol.Name <> "编辑者" Then
    If e.DataRow("编辑者") = User.Name Then '如果编辑者是当前用户
        Return
    End If
    Dim cmd As New SQLCommand
    Dim exp As String  = "编辑者 Is Null And [_Identify] = " & e.DataRow("_Identify")
    cmd.CommandText = "U pdate {内供} Set 编辑者 = '" & User.Name & "' Where " & exp
    If cmd.ExecuteNonQuery = 1 Then
        e.DataRow("编辑者") = User.Name
    Else
        cmd.CommandText = "S elect 编辑者 From {内供} Where [_Identify] = " & e.DataRow("_Identify")
        Dim nm As String = cmd.ExecuteScalar
        If nm > "" Then
            MessageBox.show(nm & "正在编辑此行!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        Else
            MessageBox.show("此行可能已经被删除,无法编辑!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        End If
        e.Cancel = True '取消编辑
    End If
End If