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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  checkbox选择提示问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=125765)

--  作者：chongziwang
--  发布时间：2018/10/6 13:44:00
--  checkbox选择提示问题

我要选中checkbox的时候弹出提示，确认后再赋值，下面的代码一直不对，请老师帮忙！
下面代码放在表属性CurrentChanged中的，不知道对不对？

Dim Result As DialogResult
Dim dr As DataRow = e.DataRow（这句也不通过）
If dr("缺考") = False Then
MessageBox.Show("确定要选择缺考吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
dr("缺考") = True
Else
dr("缺考") = False
End If
Return
Else
MessageBox.Show("确定要取消吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
dr("缺考") = False
Else
dr("缺考") = True
End If
Return
End If

--  作者：有点甜
--  发布时间：2018/10/6 14:20:00
--

Dim Result As DialogResult
Dim dr As DataRow = Tables("表A").current
If dr("缺考") = False Then
    result = MessageBox.Show("确定要选择缺考吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
    If Result = DialogResult.Yes Then
        dr("缺考") = True
    Else
        dr("缺考") = False
    End If
    Return
Else
    result = MessageBox.Show("确定要取消吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
    If Result = DialogResult.Yes Then
        dr("缺考") = False
    Else
        dr("缺考") = True
    End If
    Return
End If

--  作者：chongziwang
--  发布时间：2018/10/6 14:24:00
--
datarow 改成 row 代码通过了
但是点否以后，值还是改变了
而且当前checkbox选了以后再次点击没有提示

[此贴子已经被作者于2018/10/6 14:24:56编辑过]

--  作者：有点甜
--  发布时间：2018/10/6 14:40:00
--

改成

Dim Result As DialogResult
Dim dr As Row = Tables("表A").current
If e.sender.checked = True Then
    result = MessageBox.Show("确定要选择缺考吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
    If Result = DialogResult.Yes Then
        dr("缺考") = True
    Else
        dr("缺考") = False
    End If
Else
    result = MessageBox.Show("确定要取消吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
    If Result = DialogResult.Yes Then
        dr("缺考") = False
    Else
        dr("缺考") = True
    End If
End If

--  作者：chongziwang
--  发布时间：2018/10/6 14:49:00
--
If e.sender.checked = True Then
这句不通过

--  作者：有点甜
--  发布时间：2018/10/6 14:51:00
--

写到checkbox的checkedchanged事件里面

--  作者：chongziwang
--  发布时间：2018/10/6 15:09:00
--
我没有用窗口，直接在表格里面加的逻辑列啊

--  作者：chongziwang
--  发布时间：2018/10/6 15:11:00
--
我做了个实例，放在click事件里面了，还是不行
下载信息  [文件大小：   下载次数： ]
点击浏览该文件:管理项目11.table

如果点在行的其他位置也会弹出提示框，估计是点击的判断没做好

[此贴子已经被作者于2018/10/6 15:16:12编辑过]

--  作者：有点甜
--  发布时间：2018/10/6 15:31:00
--

下载信息  [文件大小：   下载次数： ]
点击浏览该文件:管理项目11.table

--  作者：chongziwang
--  发布时间：2018/10/6 15:36:00
--
已解决，谢谢甜版