- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 表的标题按已设定的顺序号排序 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=72105)
-- 发布时间：2015/7/23 15:09:00
-- 表的标题按已设定的顺序号排序
我想用已设定的表标题序号进行表标题排序，请问如何实现？
请查附件的例子。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:按表标题排序号排序.zip |
[此贴子已经被作者于2015/7/23 15:09:29编辑过]
-- 发布时间：2015/7/23 15:39:00
--
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