- 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=108499)
-- 发布时间：2017/10/24 9:33:00
-- [求助]排序后，不是按照字母的顺序排序
老师，排序后不是按照字母顺序排序的（如下图，重庆跑到最后了），之前看到过类似帖子，没找到了。
此主题相关图片如下：qq截图20171024092935.jpg
[此贴子已经被作者于2017/10/24 9:32:45编辑过]
-- 发布时间：2017/10/24 11:10:00
--
老师，请指教一下，谢谢。
-- 发布时间：2017/10/24 11:31:00
--
不可能，弹出指定的排序列是什么
msgbox(currentTable.Sort)
-- 发布时间：2017/10/24 11:34:00
--
多音字
-- 发布时间：2017/10/24 11:39:00
--
以下是引用有点甜在2017/10/24 11:31:00的发言：
不可能，弹出指定的排序列是什么
msgbox(currentTable.Sort)
第一列啥，TextChanged代码如下：
Dim sbxh As WinForm.ComboBox = e.Form.Controls("ComboBox1")
If sbxh.Value ="取消排序" Then
Tables("表A").Sort = ""
End If
If sbxh.Value ="所属机构" Then
Tables("表A").Sort = "第一列"
msgbox(CurrentTable.Sort)
End If
If sbxh.Value ="项目编码" Then
Tables("表A").Sort = "第六列"
End If
还有个问题，老师，我把取消排序改为空的时候，取消排序没执行。
If sbxh.Value Is Nothing Then
Tables("表A").Sort = ""
End If
[此贴子已经被作者于2017/10/24 11:52:18编辑过]
-- 发布时间：2017/10/24 12:20:00
--
没看懂你的问题。
If sbxh.Text = Nothing Then
Tables("表A").Sort = ""
End If
-- 发布时间：2017/10/24 13:50:00
--
为空时，取消排序。
第一列排序后，重庆在最后是什么问题呢？
-- 发布时间：2017/10/24 14:02:00
--
以下是引用逛逛在2017/10/24 11:34:00的发言：
多音字
多音字
难不成读zhongqin？
-- 发布时间：2017/10/24 14:05:00
--
以下是引用有点甜在2017/10/24 12:20:00的发言：
没看懂你的问题。
If sbxh.Text = Nothing Then
Tables("表A").Sort = ""
End If
示例文件如下：
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:示例.table |
-- 发布时间：2017/10/24 14:18:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:示例 (1).table |