以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  逻辑列选择问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=180894)

--  作者:15666282205
--  发布时间:2022/10/19 9:37:00
--  逻辑列选择问题
老师,表里有两列逻辑列,如果打印列已选中,则点击选择列的时候提示重复。我在表的startedit事件中用下面的代码控制。可是提示后选择是或者否没有作用,麻烦您看看
\'-------------------------------提示选择不能重复----------------------

If e.Col.Name = "选择" AndAlso e.Row.isnull("打印") = False Then
    Dim Result As DialogResult
    Result = MessageBox.Show("重复打印,继续吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
    If Result = DialogResult.Yes Then
        Tables("零件目录表").current("选择") = True
    Else
        Tables("零件目录表").current("选择") = False
    End If
End If

--  作者:有点蓝
--  发布时间:2022/10/19 9:42:00
--  
到datacolchanging事件处理

If e.dataCol.Name = "选择" AndAlso e.dataRow("打印") = true Then
    Dim Result As DialogResult
    Result = MessageBox.Show("重复打印,继续吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
    If Result = DialogResult.No Then
        e.cancel=true
    End If
End If

--  作者:15666282205
--  发布时间:2022/10/22 9:55:00
--  
完美解决,谢谢!