循环生成的表,把对应列隐藏,如
For Each c As Col in e.Form.Controls("Table1").Table.Cols
If c.caption like "*占比*" AndAlso e.caption like "*毛利*" = false then
c.visible = False
End If
Next