Dim r As Row = CurrentTable.Current
If r IsNot Nothing Then
'判断表是否被锁定
If r("锁定表")=True Then
If MessageBox.Show("该表已经被锁定, 无法进行操作, 请检查!","提 示",MessageBoxButtons.OKCancel,MessageBoxIcon.Information) = DialogResult.Cancel Then
Return True
End If
Return True
ElseIf r("锁定行")=True Then
If MessageBox.Show("该记录已经被锁定, 无法进行操作, 请检查!","提 示",MessageBoxButtons.OKCancel,MessageBoxIcon.Information) = DialogResult.Cancel Then
Return True
End If
Return True
MessageBox.Show("锁定行!")
End If
Return False
End If
加好友 
发短信
Post By：2018/10/15 15:59:00 [显示全部帖子]
