主题：[求助]如何设置列的颜色？

DrawCell事件

或者：

Tables("订单").SetHeaderCellForeColor("金额",Color.Red,5) '第五行

或者：

For Each r As Row In Tables("订单").Rows
    If r("金额") < 0 Then
        Tables("订单").SetHeaderCellForeColor("金额",Color.Red,r.Index + 1)
    End If
Next