[求助]排序后，不是按照字母的顺序排序 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]排序后，不是按照字母的顺序排序

共有1607人关注过本帖树形打印复制链接主题：[求助]排序后，不是按照字母的顺序排序

cd_tdh

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐精帖子：3083 积分：20601 威望：0 精华：0 注册：2016/3/28 16:57:00

[求助]排序后，不是按照字母的顺序排序 发帖心情

Post By：2017/10/24 9:33:00 [只看该作者]

老师，排序后不是按照字母顺序排序的（如下图，重庆跑到最后了），之前看到过类似帖子，没找到了。
图片点击可在新窗口打开查看

此主题相关图片如下：qq截图20171024092935.jpg

[此贴子已经被作者于2017/10/24 9:32:45编辑过]

cd_tdh

小大 2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐精帖子：3083 积分：20601 威望：0 精华：0 注册：2016/3/28 16:57:00

Post By：2017/10/24 11:10:00 [只看该作者]

老师，请指教一下，谢谢。

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/10/24 11:31:00 [只看该作者]

不可能，弹出指定的排序列是什么

msgbox(currentTable.Sort)

逛逛

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：1693 积分：12117 威望：0 精华：7 注册：2013/7/11 10:52:00

Post By：2017/10/24 11:34:00 [只看该作者]

多音字

cd_tdh

小大 5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐精帖子：3083 积分：20601 威望：0 精华：0 注册：2016/3/28 16:57:00

Post By：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编辑过]