- 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=28360)
-- 发布时间：2013/1/26 11:50:00
-- [求助]再问排序的窗口设计代码
从林老师那里学习了排序的窗口设计，如下（仅排序按钮代码）。运行正常。谢啦！！！
现在再请教一下，如果能使用到所有的窗口中，代码如何修改。昨天用了好多方法试了都不行，只好请专家指点一下。
Dim t As Table = Forms("筛选排序").Controls("Table1").Table
Dim sort As String = ""
For Each r As Row In t.Rows
If r.IsNull("列名") = False Then
sort &= "," & r("列名")
If r("排序方式") = "降序" Then
sort &= " desc"
End If
End If
Next
Tables(Forms("成绩表_成绩录取").Name & "_Table2").Sort = sort.Trim(",")
-- 发布时间：2013/1/26 12:01:00
--
你先做一个具体的例子出来吧。做完你可以做的东西。
-- 发布时间：2013/1/26 13:15:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:排序.table |
-- 发布时间：2013/1/26 13:42:00
--
期待中.............
-- 发布时间：2013/1/26 14:51:00
--
加一个全局变量去存储要排序的表。
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:排序.table |