专家，你好，请问字符流水号我应该怎样写代码？不同的物料分类，有不同的流水号，部分流水号是三位的，有部分流水号是四位。先要判断原流水号字符长度，再转换成数字，再加一，再保存新流水号为字符（原来是三位的，现在还是三位，原四位的就是现在就是四位）。
我此数据表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
End If
End If
请问如何编写？ 谢谢
[此贴子已经被作者于2017/5/7 17:09:12编辑过]
加好友 
发短信
Post By：2017/5/7 17:08:00 [显示全部帖子]
