Select Case e.Link.Name Case "表A" MainTable = Tables("表A") Case "表B" MainTable = Tables("表B") Case "表A.表B" MainTable = Tables("表A") Tables("表A.表B").Visible= TrueEnd Select