以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求助流水号的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=91877)
--  作者：huli503
--  发布时间：2016/10/20 21:41:00
--  求助流水号的问题

Tables("商品").AddNew()
Dim t As Row = Tables("商品").Current
Dim p As Date = Date.Today()
Dim s As String = "R" & format(p,"yyyyMMdd") & format(t("编号"),"000000")
t("流水号")=s

图片点击可在新窗口打开查看此主题相关图片如下：捕获.png
图片点击可在新窗口打开查看
--  作者：有点蓝
--  发布时间：2016/10/20 21:55:00
--  
这里的代码没有问题，勾上“显示详细详细”看看