主题：关于客户编号的问题

一个客户表，字段有客户编码 客户名称 要求新增记录  客户编码能自动编码 从001到999 依次

代码如何写

编号为字符型

Dim max As String
Dim idx As Integer
max = e.DataTable.Compute("Max(编码)") '取得当天的最大销售单号
msgbox(max)
If max > "" Then '如果存在最大销售单号
    idx = CInt(max) + 1 '获得最大销售单号的后三位顺序号,并加1
Else
    idx = 1 '否则顺序号等于1
End If
e.DataRow("编码") =Format(idx,"000")