For Each dr As DataRow In DataTables("表A").Select("", "表标题排序") MainTable = Tables(dr("表名")) Dim xsb As Integer = 0 For Each b As Table In Tables If b.Visible = True Then xsb = xsb +1 End If Next For i As Integer = 0 To xsb Syscmd.Table.MoveRight() Next Next