主题：清除为0的列的代码 不能执行，请帮忙修改下，谢谢

Dim g As New CrossTableBuilder("项目费用报表", DataTables("结算表单"))

g.HGroups.AddDef("项目编号")

g.VGroups.AddDef("所属部门")

g.Totals.AddDef("领料金额", "领料金额(元)")

g.Totals.AddDef("工时", "非劳务工时(分)")

g.Totals.AddDef("制造费", "制造费(元)")

g.Totals.AddDef("直接人工", "直接人工(分)")

g.Totals.AddDef("劳务工时", "劳务工时(分)")

g.Totals.AddDef("劳务费", "劳务费(元)")

g.OrderByTotal = True

g.HorizontalTotal = True

g.VerticalTotal = True

g.Subtotal = True

g.Build()

MainTable = Tables("项目费用报表")

'清除为0的列

For Each c As Col In Tables("项目费用报表").Cols

    If c.IsNumeric Then

        If DataTables("项目费用报表").Find(c.Name & " <> 0") Is Nothing Then c.Visible = False

    End If

Next

 

Forms("项目费用报表").open

For Each c As Col In Tables("项目费用报表").Cols

    If c.IsNumeric Then

        If DataTables("项目费用报表").Find(c.Name & " <> 0") Is Nothing Then c.Visible = true

    End If

Next

For Each c As Col In Tables("项目费用报表").Cols

    If c.IsNumeric Then

        If DataTables("项目费用报表").Find(c.Name & " <> 0") Is Nothing Then c.Visible = true

    End If

Next

运行后 还是不行 是不是 我的表格的抬头改过了如"领料金额(元)"
此主题相关图片如下：1.png

试试

 true 改为 False  可以了 谢谢您