字符流水号问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

专家，你好，请问字符流水号我应该怎样写代码？

不同的物料分类，有不同的流水号，部分流水号是三位的，有部分流水号是四位。先要判断原流水号字符长度，再转换成数字，再加一，再保存新流水号为字符（原来是三位的，现在还是三位，原四位的就是现在就是四位）。

我此数据表datacolchanged代码是：

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("主组描述")

End If

请问如何编写？谢谢

[此贴子已经被作者于2017/5/7 17:09:12编辑过]

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

目的是，新创建一个物料，在原物料流水号上，加一。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:编码.zip

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")

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

主题：字符流水号问题