主题：[求助]

代码这样写

Dim t As Table = Tables("表A")
For Each c As Col In t.Cols
    c.visible = False
Next
If chk1.checked=True Then
    t.Cols("第一列").visible = True
    t.Cols("第二列").visible = True
End If
If chk2.checked=True Then
    t.Cols("第一列").visible = True
    t.Cols("第五列").visible = True
    t.Cols("第十列").visible = True
End If