Foxtable(狐表)用户栏目专家坐堂 → [求助]自动生成特定格式的编码


  共有4571人关注过本帖树形打印复制链接

主题:[求助]自动生成特定格式的编码

帅哥哟,离线,有人找我吗?
foskycn
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:92 积分:744 威望:0 精华:0 注册:2013/7/19 8:55:00
[求助]自动生成特定格式的编码  发帖心情 Post By: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

请大家帮我看看哪里出问题了!

 回到顶部