如果你的 checkbox 的名称就是列名，那么，你可以在checkchanged直接写代码
Tables("表A").Cols(e.Sender.Text).Visible = e.Sender.Checked
加好友 
发短信
Post By：2017/1/8 22:52:00 [显示全部帖子]
