各位前辈老师们，请教一个问题，就是我写了一个如下的内部函数：
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
Exit Function
End If
Return True
ElseIf r("锁定行")=True Then
If MessageBox.Show("该记录已经被锁定, 无法进行操作, 请检查!","提 示",MessageBoxButtons.OKCancel,MessageBoxIcon.Information) = DialogResult.Cancel Then
Exit Function
End If
Return True
MessageBox.Show("锁定行!")
End If
Return True
End If
然后在按钮里面调用的代码是这样的：
If Functions.Execute("System_Lcok") Then
Return True
Else
Tables(eform.name & "_Table1").Save
MessageBox.Show("恭喜,已成功保存修改!")
End If
我的本意是，内部函数里面做判断，如果锁定表或者锁定行的值为真，则弹出提示框后不进行任何操作，如果值为假，则不弹出提示框，直接进行保存表的操作，但是技术不够，可能代码写不对，没有达到想要的效果，忘各位老师前辈指点一下！
加好友 
发短信
Post By：2018/10/15 15:52:00 [显示全部帖子]
