以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  [求助]自动编号问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=89689)

--  作者：norwey --  发布时间：2016/8/26 22:55:00 --  [求助]自动编号问题 我想根据取样日期、客户编号、系统类别、水样类别自动生产编号。生成类似于“20160826-JYT-04010101”，中间的JYT为固定字母。各位大侠请指点！弄了几天了，实在是无能为力了。谢谢大家了。  下载信息  [文件大小：   下载次数： ] 点击浏览该文件:管理项目1.rar

--  作者：cbt --  发布时间：2016/8/27 8:04:00 --   \'参考 Dim rq As String = Tables("客户1").Rows(0)("取样日期") rq= rq.Replace("-","") Dim bh As String = Tables("客户1").Rows(0)("客户编号") Dim st As DataRow = DataTables("类别编号").Find("系统类别=\'" & CurrentTable.Current("系统类别") & "\'") Dim str As String = st("系统编号") output.Show(rq & "-JYT-" & bh & str)

--  作者：Hyphen --  发布时间：2016/8/27 9:30:00 --   参考：http://www.foxtable.com/webhelp/scr/2403.htm

--  作者：norwey --  发布时间：2016/9/11 21:35:00 --   终于完成了，感谢啊