以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  逻辑列赋值  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=125395)
--  作者：liuandwang
--  发布时间：2018/9/27 15:27:00
--  逻辑列赋值
各位老师：
在表中“完成结算”为逻辑列，通过在“完成结算”列中打勾，“完成结算日期”列自动显示当天的日期，
如果取消打勾，完成“结算日期列”相应的日期消失。帮忙给一下下面的代码，谢谢。
If e.DataCol.Name = ("完成结算") = True Then
Dim rq As Date = Date.Today
 e.DataRow("完成结算日期" )= rq
Else
            e.DataRow("完成结算日期") = Nothing 
End If
--  作者：有点甜
--  发布时间：2018/9/27 15:30:00
--  
If e.DataCol.Name = "完成结算"
    If e.DataRow("完成结算") = True Then
        Dim rq As Date = Date.Today
        e.DataRow("完成结算日期" )= rq
    Else
        e.DataRow("完成结算日期") = Nothing
    End If
End If
--  作者：liuandwang
--  发布时间：2018/9/27 16:47:00
--  
已搞定，谢谢