Dim lb As String = "PO#"
If e.DataRow("产品编号").StartsWith(lb) = False '如果单据编号前缀不符
Dim max As String
Dim idx As Integer
'max = e.DataTable.Compute("Max(客户编号)","Ib = '" & lb & "' And [_Identify] <> " & e.DataRow("_Identify")) '取得该类别的最大编号
max = e.DataTable.Compute("Max(产品编号)","[_Identify] <> " & e.DataRow("_Identify")) '取得该类别的最大编号
If max > "" Then '如果存在最大编号
idx = CInt(max.Substring(3,5)) + 1 '获得最大编号的后三位顺序号,并加1
Else
idx = 1 '否则顺序号等于1
End If
e.DataRow("产品编号") = lb & Format(idx,"00000")
End If
一个是订单明细 我会将他剪切到 制造订单 产品编号也会随之剪到 制造订单里 如果现在重新增加新的订单又会重复开始001 002这样的编码 我希望从两个表里面查找最大的值，这样保证不碰车。
求高手帮忙
[此贴子已经被作者于2015/6/2 17:05:09编辑过]
加好友 
发短信
Post By：2015/6/2 16:48:00 [只看该作者]
此主题相关图片如下：qq截图20150602170435.png
