用变量记录表,再移除
Dim tab = basemainform.controls("mainpages")vars("表C") = tab.tabpages("表C")tab.tabpages.Remove(tab.tabpages("表C"))
----------还原
'tab.tabpages.add(vars("表C"))