呵呵:请看一下
1、Dim bh As String = e.DataRow("类别") & Format(d,"yyyyMMdd") & "-" '生成编号的前缀 2、idx = CInt(max.Substring(12,3)) + 1 '获得最大单据编号的后四位顺序号,并加1
第1条中的编号前缀的字符数与第2条中的12个字符不相等了哈,
注:(12,3)应改为(类别4位、日期8位、一个“-”,就是13位了。