主题：弱问,切换当前表的代码怎么写

Tables("xxx").Select(- 1,0)    '用- 1是以防该表一行都没有。

指定各类表成为当前表：

MainTable = Tables("客户")
Tables("客户.订单.产品").Grid.Select
Tables("客户").Grid.Select
CurrentTable.Select(- 1,CurrentTable.Cols.Count - 1)
Output.Show(CurrentTable.Name)
MainTable = Tables("订单")
Tables("订单.客户").Grid.Select
CurrentTable.Select(- 1,CurrentTable.Cols.Count - 1)
Output.Show(CurrentTable.Name)
MainTable = Tables("产品")
Tables("产品.订单.客户").Grid.Select
CurrentTable.Select(- 1,CurrentTable.Cols.Count - 1)
Output.Show(CurrentTable.Name)
Forms("窗口1").Controls("Table1").Select
Output.Show(CurrentTable.Name)

MainTable = Tables("表B")
Tables("表B.表C").Grid.Select
Output.Show(CurrentTable.Name)