以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  关于逻辑值的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=123194)

--  作者：weipeng6999 --  发布时间：2018/8/9 17:11:00 --  关于逻辑值的问题 老师：有个“是否开票”的逻辑值，想它在不同状态下进行操作都有提示，我写的这个代码有问题，请老师指点。 If Tables("开票指令").Current("是否开票")=False Then If MessageBox.Show("是否确定开票?","请确认",MessageBoxButtons.YesNo,MessageBoxIcon.Question)=DialogResult.Yes Then    Tables("开票指令").current("是否开票") =True  End If Else  If MessageBox.Show("是否取消开票?","请确认",MessageBoxButtons.YesNo,MessageBoxIcon.Question)=DialogResult.Yes Then    Tables("开票指令").current("是否开票") =False  End If End If 代码写在 datacolchanged中的

--  作者：有点甜 --  发布时间：2018/8/9 18:10:00 --   Dim result = MessageBox.Show("是否取消开票?","请确认",MessageBoxButtons.YesNo,MessageBoxIcon.Question) If result=DialogResult.Yes Then     If Tables("开票指令").Current("是否开票")=False Then                Tables("开票指令").current("是否开票") =True            Else         Tables("开票指令").current("是否开票") =False     End If End If