主题：[求助]新增行中自动添加编号

Dim max As String
max = e.DataTable.Compute("Max(单位编号)", "单位编号 like 'CUN%'")
Dim int As Integer = 1
If max > "" Then
    int = CInt(max.Substring(3,3)) + 1
End If
e.DataRow("单位编号") = "CUN" & Format(int,"000") & "-01"