关于逻辑值的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于逻辑值的问题

共有2051人关注过本帖树形打印复制链接主题：关于逻辑值的问题

weipeng6999

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：349 积分：3329 威望：0 精华：0 注册：2016/3/8 18:13:00

关于逻辑值的问题 发帖心情

Post By：2018/8/9 17:11:00 [只看该作者]

老师：有个“是否开piao”的逻辑值，想它在不同状态下进行操作都有提示，我写的这个代码有问题，请老师指点。

If Tables("开piao指令").Current("是否开piao")=False Then

If MessageBox.Show("是否确定开piao?","请确认",MessageBoxButtons.YesNo,MessageBoxIcon.Question)=DialogResult.Yes Then

Tables("开piao指令").current("是否开piao") =True

End If

Else

If MessageBox.Show("是否取消开piao?","请确认",MessageBoxButtons.YesNo,MessageBoxIcon.Question)=DialogResult.Yes Then

Tables("开piao指令").current("是否开piao") =False

End If

代码写在 datacolchanged中的

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/8/9 18:10:00 [只看该作者]

Dim result = MessageBox.Show("是否取消开piao?","请确认",MessageBoxButtons.YesNo,MessageBoxIcon.Question)
If result=DialogResult.Yes Then
    If Tables("开piao指令").Current("是否开piao")=False Then
        Tables("开piao指令").current("是否开piao") =True
    Else
        Tables("开piao指令").current("是否开piao") =False
    End If
End If

下一主题 >> << 上一主题

主题：关于逻辑值的问题