- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]如果我需要通过代码对列进行左右排序怎么写？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=144489)
-- 发布时间：2019/12/21 22:03:00
-- [求助]如果我需要通过代码对列进行左右排序怎么写？
[求助]如果我需要通过代码对列进行左右排序列怎么写？
-- 发布时间：2019/12/22 20:27:00
--
按顺序移动到合适的位置
Dim str() As String = {"列2","列1"}
Array.Sort(str)
For i As Integer = str.Length - 1 To 0 Step -1
Tables("B").Cols(str(i)).Move(0)
Next
-- 发布时间：2019/12/24 20:12:00
--
Dim str() As String = {"列1","第三列","第八列","列2"}
\'Array.Sort(str) \'去掉这段代码顺序才变对
For i As Integer = str.Length - 1 To 0 Step -1
Tables("发").Cols(str(i)).Move(0)
Next
-- 发布时间：2019/12/24 20:42:00
--
Dim str() As String = {这里怎么换成变量？}
\'Array.Sort(str) \'去掉这段代码顺序才变对
For i As Integer = str.Length - 1 To 0 Step -1
Tables("发").Cols(str(i)).Move(0)
Next
红色区域怎么用变量表示？我用了好多办法，他都不行
-- 发布时间：2019/12/24 20:55:00
--
什么变量，变量里是什么值？
-- 发布时间：2019/12/24 22:53:00
--
这样是错误的，该怎么写？
Dim str() As String = e.Form.Controls("列序").value
\'Array.Sort(str) \'去掉这段代码顺序才变对
For i As Integer = str.Length - 1 To 0 Step -1
Tables("订单详情").Cols(str(i)).Move(0)
Next
此主题相关图片如下：qq截图20191224225240.png
-- 发布时间：2019/12/24 22:59:00
--
Dim str() As String = e.Form.Controls("列序").text.split(",")