如代码
For Each dt As DataTable In DataTables If dt.name <> "表a" Then Tables(dt.name).visible = False Else Tables(dt.name).visible = True End IfNext