以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  我在afterload事件中写的，没有效果呢？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=117094)
--  作者：xxfoxtable
--  发布时间：2018/4/6 11:53:00
--  我在afterload事件中写的，没有效果呢？
With Tables("订单选择商品_table1")
    For i As Integer = 1 To .Rows.Count -1
        If .Current("订单号")<>"" And .Current("生产是否完成")=False   Then
            For Each c As Col In .Cols
                .SetHeaderCellBackColor(c.Name,Color.Cyan)
            Next
        End If
    Next
End With
--  作者：有点甜
--  发布时间：2018/4/6 15:56:00
--  

我这样测试

 

With Tables("订单选择商品_table1")
    For i As Integer = 0 To .Rows.Count -1
        If .rows(i)("订单号")<>"" And .rows(i)("生产是否完成")=False   Then
            For Each c As Col In .Cols
                .SetHeaderCellBackColor(c.Name,Color.Cyan, i+1)
            Next
        End If
    Next
End With