主题：编号排序

要数字型的才能排出你i要的效果

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

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

需要处理一下，才能排序

 

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

.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.
提示错误信息

前面只有这段代码：If e.DataCol.Name = "工piao编号" Then '发生变化的是产品编号吗?
    '在产品表找出该产品
    Dim dr As DataRow
    dr = DataTables("计划明细").Find("工piao编号= '" & e.DataRow("工piao编号") & "'") 'And  名称= '" & e.DataRow("名称") & "'  And 规格= '" & e.DataRow("规格") & "' And 材质= '" & e.DataRow("材质") & "'")   
    If dr IsNot Nothing '如果找到, 则设置各列内容
        e.DataRow("工号")= dr("工号")
        e.DataRow("部件图号")= dr("部件图号")
        e.DataRow("零件图号")= dr("零件图号")
        e.DataRow("数量")= dr("数量")
        e.DataRow("零件名称")= dr("零件名称")
        e.DataRow("材质")= dr("材质")
     End If
End If

一个是数值列,一个是字符串列吧, 检查一下.

老师，我查找了下没有0452-1的行啊？是因为空白吗？