以文本方式查看主题

-  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=110892)

--  作者:zr8243
--  发布时间:2017/12/11 22:27:00
--  求助 表样式
新手小白提问
For Each a As DataRow In DataTables("发票管理明细表").DataRows
    If a.IsNull("回款日期") = False Then
        DataTables("发票管理明细表").SysStyles("CurrentRow").FontStrikeout = True
    End If
Next

“回款日期”列里面只要有日期数据,就把当前行全用删除线表示。但运行完代码后,所有数据都有删除线了。

--  作者:有点蓝
--  发布时间:2017/12/11 22:35:00
--  
代码放到drawcell事件

if e.row.isnull("回款日期") = False
e.style = "样式1"
endif

需要先定义一个样式
图片点击可在新窗口打开查看