主题：[求助]网络编辑下的列不重复

Dim max As String
max = e.DataTable.SqlCompute("max(业务编号)")
If max > "" Then
    Dim idx As Integer
    idx = CInt(max.SubString(2,4)) + 1
    e.DataRow("业务编号") = "DZ" & Format(idx,"0000")
Else
    e.DataRow("业务编号") = "DZ" & "0001"
End If
e.DataRow.Save

嗯嗯是的，直接后台查询了。