主题：编号排序

If e.sender.text="升序" Then
  Tables("探伤记录").sort="探伤编号 desc"
  e.sender.text="降序"
Else
  Tables("探伤记录").sort="探伤编号"
  e.sender.text="升序"
End If

老师，这段代码排序后不能显示10000号及以后的编号只能显示9999内的编号，有没有办法解决？

如果不是代码问题，是不是我的窗口设置问题？

刚刚试了下，在表里边排序也是这样只能显示0001-9999 超过10000就不能显示，取消排序才可以显示？有办法解决吗？

没有，只到了9424

恩，找到了，可是这个怎么可以让它按顺序排下去呢？

是字符型的

If e.DataCol.name="磁粉渗透" Then
   If e.DataRow.isnull("磁粉渗透")=False Then
        Dim s As String = e.DataRow("磁粉渗透")
       If val(s) < 99999 AndAlso s.IndexOf("-") <0  Then
           e.DataRow("磁粉渗透") = Date.today.year - 2000 & "-" & e.DataRow("磁粉渗透") & "-" & "1"
       End If
   End If
End If
If e.DataCol.name="探伤编号" Then
   If e.DataRow.isnull("探伤编号")=False Then
        Dim s As String = e.DataRow("探伤编号")
       If val(s) < 99999 AndAlso s.IndexOf("-") <0  Then
           e.DataRow("探伤编号") = Date.today.year - 2000 & "-" & e.DataRow("探伤编号")
       End If
   End If
End If

老师，但是我这个表属性里写了这段代码，整数怎么获取编号值呢？不带前缀的值

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目4.table

排序是通过按钮来实现的，和表里排序差不多，老师有办法解决吗？

.NET Framework 版本：2.0.50727.3655
Foxtable 版本：2014.10.23.1
错误所在事件：表，探伤记录，DataColChanged
详细错误信息：
Exception has been thrown by the target of an invocation.
Conversion from string "0452-1" to type 'Integer' is not valid.
Input string was not in a correct format.
提示错误信息