以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  怎样直接生成纯数字编号  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=124048)

--  作者:weijun
--  发布时间:2018/8/29 16:46:00
--  怎样直接生成纯数字编号
怎样直接生成数字编号如 0001   0002   0003
--  作者:2900819580
--  发布时间:2018/8/29 16:50:00
--  
Dim I As Integer = DataTables("表A").Compute("max(编号)")
Tables("表A").Current("编号") = Format(i,"0000")

--  作者:weijun
--  发布时间:2018/8/29 17:01:00
--  
增加一行是编号没生成
--  作者:weijun
--  发布时间:2018/8/29 17:05:00
--  
好了,谢谢!