以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]自动生成特定格式的编码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=38845)
--  作者：foskycn
--  发布时间：2013/8/8 15:56:00
--  [求助]自动生成特定格式的编码
先上图

图片点击可在新窗口打开查看此主题相关图片如下：qq图片20130808154847.jpg
图片点击可在新窗口打开查看

我想能够实现在入库单号的文本框内输入三位流水号，当增加一行的时候入库单号列能自动填入当天日期+流水号的入库单编码。

CurrentTable.AddNew()
Dim rkdh As WinForm.TextBox = e.form.Controls("入库单号")
rkdh.value = format(Date.today,"yyyyMMdd") & format(val(rkdh),"000")
Tables("入库明细表").Current("入库单号") = rkdh

请大家帮我看看哪里出问题了！
--  作者：Bin
--  发布时间：2013/8/8 16:15:00
--  
rkdh.value = format(Date.today,"yyyyMMdd") & format(val(rkdh.VALUE),"000")