主题：如何写订单编码

那狐爸的意思是 关联表中还得再做一个[产品编码] + 'DD' + [_Identify]这样的表达式了

我都是用自动编码。要是我在中间删掉了一行，会不会下面列的编码自动减掉1

试过了，删掉一行后，该编码行就不存在，下面的行的编码也不会自动减少。 现在问题是怎么恢复删掉的一行？

楼主：你是不是想要这个，在DATACOLCHANGED中加入

If e.DataCol.name ="物料编码" Then
e.DataRow("订单号") =e.DataRow("物料编码") & "DD" & e.DataRow("_Identify")
End If

 

感谢小猪鑫鑫，我要的就是你给的。你的代码很好，再次感谢！

我还有2个问题再次请教：

1、有个整数列，列名为A，里面数有可能重复，如1、2、2、3、4、4、5...，然后我想在A列做一下拉列，这个下拉列引用的列也是A列，但是，我现在想让下拉列出现的数据是不重复的，即出现的是：1、2、3、4、5...，请问应该怎么加个代码？

2、上面问题的延伸问题，如果我希望下拉列出现的数据是最大的那个数字+1，比如这里，希望出现的是5+1=6，请问代码应该怎么写？

 
Dim s As String = DataTables("MMNN").GetComboListString("A")
Dim v As integer = DataTables("MMNN").Compute("Max(A)") + 1
Tables("XX").Cols("YY").ComboList = s & "|" & v