[浏览完整版]
标题：自动编码
1楼
段虎成 发表于：2023/12/23 15:51:00合同编号 产品码 …… 产品名称
202312001 202312001-01 A
202312001 202312001-02 B
……
老师，假如有一个合同，编号为202312001 ， 合同里有多项产品，如何每增加一项产品时，自动生成上述产品码（合同编号 + “-” + 2未流水号）
请老师帮忙，感谢。
2楼
有点蓝 发表于：2023/12/23 15:53:003楼
段虎成 发表于：2023/12/23 16:44:00'产品码
Select e.DataCol.Name
Case "合同编号"
If e.DataRow.IsNull("合同编号") Then '如果合同编号为空，则产品码为空
e.DataRow("产品码") = Nothing
Else
Dim lb As String = e.DataRow("合同编号") & "-" '产产品码前缀
If e.DataRow("产品码").StartsWith(lb) = False Then '如果单据编号前缀不符
Dim max As String
Dim idx As Integer
Dim flt As String
flt = "合同编号 = '" & lb & "' And [_Identify] <> " & e.DataRow("_Identify")
max = e.DataTable.Compute("Max(产品码)", flt) '取得该类别的最大编号
If max > "" Then '如果存在最大编号
idx = CInt(max.Substring(11, 2)) + 1 '获得最大编号的后三位顺序号,并加1
Else
idx = 1 '否则顺序号等于1
End If
e.DataRow("产品码") = lb & Format(idx, "00")
End If
End If
End Select
当合同编号是：2022000027出现2次的时候，为什么产品码都是2022000027-01 ？上面代码哪里不对么
4楼
有点蓝 发表于：2023/12/23 16:58:00idx = CInt(max.Substring(11, 2)) + 1
改为
idx = CInt(max.Substring(max.length - 2)) + 1
5楼
段虎成 发表于：2023/12/23 17:03:00还是一样，没变
6楼
有点蓝 发表于：2023/12/23 17:12:00把有问题的产品码数据先清掉
7楼
段虎成 发表于：2023/12/23 17:20:00郁闷，还是不行。
8楼
有点蓝 发表于：2023/12/23 17:31:00flt = "合同编号 = '" & lb & "' And [_Identify] <> " & e.DataRow("_Identify")
改为
flt = "合同编号 = '" & e.DataRow("合同编号") & "' And [_Identify] <> " & e.DataRow("_Identify")
9楼
段虎成 发表于：2023/12/23 17:42:00啊，要疯了，还是不行
10楼
有点蓝 发表于：2023/12/24 20:05:00请上传实例说明