主题：字符流水号问题

 上传具体foxtable例子说明问题。

If e.DataCol.Name = "物料分类代码" Then '如果内容发生变动的是物料分类代码列
    If e.NewValue Is Nothing Then '如果新值是空白,也就是物料分类代码内容为空
        e.DataRow("流水号") = Nothing '那么清空此行的内容
    Else
        Dim dr As DataRow
       
        '否则在物料编码表查找同名的物料分类代码行,将找到的行赋值给变量dr
       
        dr = DataTables("物料编码").Find("[物料分类代码] = '" & e.NewValue & "' and _Identify <> " & e.DataRow("_Identify"), "_Identify  desc")
       
        If dr IsNot Nothing  Then '如果找到了同名的物料分类代码行,也就是dr不是Nothing
            e.DataRow("主组码") = dr("主组码")
            e.DataRow("分类码") = dr("分类码")
            e.DataRow("物料分类描述") = dr("物料分类描述")
            e.DataRow("主组描述") = dr("主组描述")
            Dim str As String = dr("流水号")
            e.DataRow("流水号") = format(val(str)+1, "".PadLeft(str.Length, "0"))
        End If
    End If
End If

        dr = DataTables("物料编码").Find("[物料分类代码] = '" & e.NewValue & "' and _Identify <> " & e.DataRow("_Identify"), "_Identify  desc")
       

改成

 

        dr = DataTables("物料编码").Find("[物料分类代码] = '" & e.NewValue & "' and _Identify <> " & e.DataRow("_Identify"), "流水号  desc")

 

运算不会慢，因为只是查找一行数据。