主题：自动编号问题

4楼的代码，写到DataRowAdded不就是？

1、编号列改成字符列，不要用数值列。

 

2、

 

Dim d As Date = Date.Today
Dim max As String
Dim idx As Integer
Dim flt As String
Dim bh As String = getpy(User.Name,true) & Format(d,"yyyyMMdd")
flt = "单据编号 like '" & bh & "%'"
Output.Show(flt)
max = e.DataTable.Compute("Max(单据编号)",flt)
If max > "" Then '如果存在最大单据编号
    idx = CInt(max.Substring(max.Length-3,3)) + 1
Else
    idx = 1 '否则顺序号等于1
End If
e.DataRow("单据编号") = bh & Format(idx,"000")