以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]如何判断内部函授返回的值? (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=126146) |
-- 作者:lunengcheng -- 发布时间:2018/10/15 15:52:00 -- [求助]如何判断内部函授返回的值? 各位前辈老师们,请教一个问题,就是我写了一个如下的内部函数: 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 我的本意是,内部函数里面做判断,如果锁定表或者锁定行的值为真,则弹出提示框后不进行任何操作,如果值为假,则不弹出提示框,直接进行保存表的操作,但是技术不够,可能代码写不对,没有达到想要的效果,忘各位老师前辈指点一下! |
-- 作者:有点甜 -- 发布时间:2018/10/15 15:59:00 -- 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
|
-- 作者:lunengcheng -- 发布时间:2018/10/15 16:44:00 -- 代码完美,多谢老师! |