主题：编号排序

 你此表有多少行数据？有没有叫10000号的数据？

排序，是不会影响数据的完整显示的。

有可能是 10000 排在了中间。如果是字符串的话。先比较第一位、再比较第二位，所以，10000应该排在 1000-2000 那里去了。

填充数据的时候，位数要满足 00000 - 99999 必须是五位，不能是四位。

或者加一列整数表达式，根据整数列排序。

 想办法把探伤编号改成五位以上的编号才能排序正确的。

 不会改，就上传具体例子看看。

需要处理一下，才能排序

For Each r As Row In Tables("探伤记录").Rows
    Dim idx As Integer = r("探伤编号").Indexof("-")
    If idx >= 0 Then
        r("第十列") = r("探伤编号").Substring(0, idx+1) & Format(cint(r("探伤编号").Substring(idx+1)), "00000")
    End If
Next

 你的编号设计得有问题，不能胡乱生成编号啊。

 http://www.foxtable.com/help/topics/2403.htm

编码不符合要求，就肯定不能排序，必须规范编码以后，才有排序一说。