主题：按系统默认日期生自动生成编号要怎么改代码？

DateRowAdding事件，代码

Dim bh As String = Format(Date.Today, "yyyyMMdd")
Dim max As String = e.DataTable.Compute("max(编号)", "编号 like '" & bh & "%'")
Dim idx As Integer = 1
If max > "" Then
    idx = Cint(max.SubString(bh.Length)) + 1
Else
    idx = 1
End If

e.DataRow("编号") = bh & format(idx, "0000")