主题：[求助]列效果

Dim Sum1 As Integer

For Each cl As Col In Tables("订单主表.订单明细表").Cols

If cl.name<>"订单编号" Or cl.name<>"明细_颜色"

    Sum1  = Tables("订单主表.订单明细表").Compute("Sum(" &cl.name & ")")

    If sum1=0 Then

        Tables("订单主表.订单明细表").Cols(cl.name).Visible=False

Else

Tables("订单主表.订单明细表").Cols(cl.name).Visible=True

    End If

End If    

Next