以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于客户编号的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=58453)
--  作者：jswjyjf
--  发布时间：2014/10/16 22:36:00
--  关于客户编号的问题

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

代码如何写
--  作者：有点甜
--  发布时间：2014/10/16 22:42:00
--  

 参考，自己变通以下

 

e.DataRow("编号") = e.DataTable.Compute("Max(编号)") + 1

 

http://www.foxtable.com/help/topics/0630.htm

 

 
--  作者：jswjyjf
--  发布时间：2014/10/16 22:45:00
--  

编号为字符型
--  作者：jswjyjf
--  发布时间：2014/10/16 22:48:00
--  

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")
--  作者：jswjyjf
--  发布时间：2014/10/16 22:58:00
--  
e.DataRow("编码") =Format(e.DataTable.Compute("Max(编码)") + 1,"000")