主题：[求助]有关独占式编辑（已解决）

If cmd.ExecuteNonQuery = 1 Then
    Tables("t_yg").Current("sys_locked") = _UserName
    DataTables("t_yg").BaseTable.AcceptChanges()
    '编辑者更新成功,输入框有效化
   '此处省略

Else
    cmd.CommandText = "Select sys_locked From {t_yg} Where [_Identify] = " & Tables("t_yg").Current("_Identify")
    Dim nm As String = cmd.ExecuteScalar
    If nm > "" Then
        MessageBox.show(nm & "正在编辑此行!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Else
        cmd.CommandText = "Select Count(*) From {t_yg} Where [_Identify] = " & Tables("t_yg").Current("_Identify")
        If cmd.ExecuteScalar =0 Then
            MessageBox.show("此行已被他人删除!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        End If
    End If
End If