主题：请教自动编号

将：

 

Dim bh As String = Format(e.DataRow("日期"),"yyyyMMdd") '取得编号的8位前缀

 

改为：

 

Dim bh As String = e.DataRow("日期").Year Mod 10 & Format(e.DataRow("日期"),"MMdd")

 

或改为：

 

Dim bh As String = Format(e.DataRow("日期"),"yyyyMMdd").SubString(3)