以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]关于符合条件自动勾选复选框  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=127681)
--  作者：工匠
--  发布时间：2018/11/20 1:06:00
--  [求助]关于符合条件自动勾选复选框
老师好：
         现在有个显示复选框的窗口表A，需要当数量列当前行大于0时，则当前行的复选框能自动为勾选状态，当等于0或是空白时，复选框为不勾选状态。请教一下，要怎么实现，谢谢！
--  作者：y2287958
--  发布时间：2018/11/20 8:22:00
--  
If e.DataCol.Name = "数量"
    CurrentTable.Current.Checked = e.DataRow("数量") > 0
End If
--  作者：有点甜
--  发布时间：2018/11/20 8:45:00
--  

任意事件执行下面代码

 

If Tables.Contains("表A") Then
    For Each r As Row In Tables("表A").Rows
        If r("第二列") > 0 Then
            r.Checked = True
        End If
    Next
End If
--  作者：工匠
--  发布时间：2018/11/21 17:02:00
--  
谢谢老师，这一功能实现了