主题：[求助]求助关于自动编号和提取数据问题

编号问题，在datarowAdding事件加入代码

Dim bh As String = Date.Today.Year
Dim max  As String = e.DataTable.compute("max(总号)", "总号 like '" & bh & "*'")
Dim idx As Integer
If max > "" Then
    idx = max.SubString(bh.Length, 5)
Else
    idx = 0
End If
e.DataRow("总号") = bh & Format(idx+1, "00000") & "号"