你目的是什么？
Dim r As Row = Tables("表A").CurrentIf r("第一列") = "1111" Then Tables("表A.表B").Cols("第二列").Visible = e.Sender.CheckedElseIf r("第一列") = "2222" Then Tables("表A.表B").Cols("第三列").Visible = e.Sender.CheckedEnd If
加好友 
发短信
Post By：2015/7/6 9:51:00 [只看该作者]
