以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  在窗口,如果“不合格”逻辑列勾选了第2个时,则给出提示  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=177898)

--  作者:min-fox
--  发布时间:2022/6/8 23:53:00
--  在窗口,如果“不合格”逻辑列勾选了第2个时,则给出提示
蓝老师:
在窗口,如果“不合格”逻辑列勾选了第2个时,则提示“已有两项不合格,等全面检查后再检测”。实例附后
谢谢
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目38.table


[此贴子已经被作者于2022/6/8 23:53:38编辑过]

--  作者:有点蓝
--  发布时间:2022/6/9 8:46:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目38.zip


--  作者:min-fox
--  发布时间:2022/6/9 9:14:00
--  
蓝老师,打不开,提示版本过高,然而升级时,提示是最新版
--  作者:有点蓝
--  发布时间:2022/6/9 9:28:00
--  
不可能,如果提示版本过高,肯定不是最新版。版本升级有问题,请联系客服,QQ:800014337
--  作者:min-fox
--  发布时间:2022/6/11 19:31:00
--  
蓝老师,如果增加一列“单位名称”,通过筛选出单位,每个单位只能勾选2个,下面的代码怎么改?
If e.DataCol.Name = "是否合格" OrElse e.DataCol.Name = "单位" Then
    If e.NewValue Then
        If e.DataTable.Compute("count(是否合格)", "是否合格=true") > 1 Then
            MessageBox.Show("勾了2个")
            e.Cancel = True
        End If
    End If
End If

--  作者:有点蓝
--  发布时间:2022/6/12 20:07:00
--  

If e.DataCol.Name = "是否合格" OrElse e.DataCol.Name = "单位" Then
    If e.datarow("是否合格")=true Then
        If e.DataTable.Compute("count(是否合格)", "是否合格=true and 单位=\'" & e.datarow("单位") & "\'") > 1 Then
            MessageBox.Show(e.datarow("单位") & "勾了2个")
            e.Cancel = True
        End If
    End If
End If

--  作者:min-fox
--  发布时间:2022/6/13 21:18:00
--  
蓝老师,根据您的指导,MessageBox实现不了,实例您再帮我看看。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目43.table


--  作者:有点蓝
--  发布时间:2022/6/13 22:02:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目43.zip