按钮1、按钮2代码
dim t as table = tables("表A")t.cols("第一列").visible = Falset.cols("第二列").visible = Truet.cols("第三列").visible = Falset.cols("第四列").visible = True
CurrentTableChanged事件
If CurrentTable.name = "表A" Then For Each c As Col In CurrentTable.cols c.visible = True NextEnd If