- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 修改数值的时候，让四个逻辑值只能有一个为真 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=115996)
-- 发布时间：2018/3/18 11:50:00
-- 修改数值的时候，让四个逻辑值只能有一个为真
此主题相关图片如下：ee.png
修改数值的时候，让四个逻辑值只能有一个为真
-- 发布时间：2018/3/18 12:39:00
--
当前表事件datacolchanged写入代码：
Select Case e.DataCol.Name
Case "迟到5分钟","迟到10分钟","请假","旷课"
If e.NewValue = True Then
Dim nms() As String = {"迟到5分钟","迟到10分钟","请假","旷课"}
For Each nm As String In nms
If nm <> e.DataCol.Name AndAlso e.DataRow(nm) = True Then
e.DataRow(nm) = False
End If
Next
End If
End Select
[此贴子已经被作者于2018/3/18 12:40:36编辑过]
-- 发布时间：2018/3/18 20:38:00
--
参考
http://www.foxtable.com/webhelp/scr/2395.htm