以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  关于DrawCell事件代码求助  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=146939)
--  作者：温馨的大树
--  发布时间：2020/3/6 11:58:00
--  关于DrawCell事件代码求助
希望达到如下效果：
订单明细表的订单日期列，希望当天的第一个订单，整行用不同style样式进行显示，以对不同天的订单用行的样式作一个视觉上的区别，代码如下，不过在保存事件代码时，出现附件上面的错误信息，请问问题出在哪里?怎么修改啊？


Dim n As Integer = Tables("订单明细表").Rows.count
图片点击可在新窗口打开查看此主题相关图片如下：万能五笔截图_20200306115305.png
图片点击可在新窗口打开查看
Select Case e.Col.name
    Case "订单日期"
        For m As Integer = 1 To n-1
        Dim i As TimeSpan =e.Row(m)-e.Row(m-1)
            If i.days > 0 Then
                e.Style="日分隔线"
            End If
        Next
End Select
--  作者：有点蓝
--  发布时间：2020/3/6 14:07:00
--  
Select Case e.Col.name
    Case "订单日期"
        if e.row.index > 0 then
            If e.Row(e.Col.name) > e.table.rows(e.row.index-1)(e.Col.name) then
                e.Style="日分隔线"
            End If
        end if
End Select
--  作者：温馨的大树
--  发布时间：2020/3/7 0:54:00
--  回复：（有点蓝）Select Case e.Col.name   ...
你好，代码更新后，只是订单日期这一列符合条件的单元格进行了标记，要实现的是这个单元格一行都用设定的样式进行标记，上述代码需要怎么调整呢？谢谢
--  作者：有点蓝
--  发布时间：2020/3/7 8:52:00
--  
去掉列名的判断即可

        if e.row.index > 0 then
            If e.Row(e.Col.name) > e.table.rows(e.row.index-1)(e.Col.name) then
                e.Style="日分隔线"
            End If
        end if