以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  打印后自动生成单号  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=162270)

--  作者:BATASC750206
--  发布时间:2021/4/11 14:08:00
--  打印后自动生成单号
打印后如果自动生成送货单号,且送货单号会自动保存到表内相应的单元格内,如:每张送货单最多可以打印8行,请问这个代码要怎么写?
--  作者:有点蓝
--  发布时间:2021/4/11 21:18:00
--  
按什么规则生成什么样的送货单号?
--  作者:BATASC750206
--  发布时间:2021/4/12 11:32:00
--  
两个字母+日期+3位数字
--  作者:有点蓝
--  发布时间:2021/4/12 11:47:00
--  
参考:http://www.foxtable.com/webhelp/topics/2403.htm
--  作者:BATASC750206
--  发布时间:2021/4/12 15:22:00
--  
不设类别列行不行?


--  作者:有点蓝
--  发布时间:2021/4/12 15:33:00
--  
可以,写死固定2个字母
--  作者:BATASC750206
--  发布时间:2021/4/12 16:51:00
--  
请指点下!谢谢!


--  作者:有点蓝
--  发布时间:2021/4/12 17:06:00
--  
比如:Dim bh As String = "AB-" & Format(d,"yyyyMM") & "-" \'生成编号的前缀
--  作者:BATASC750206
--  发布时间:2021/4/12 18:11:00
--  
flt = "工程代码 = \'"& e.DataRow("工程代码") & "\' And 制单日期 >= #" & fd & "# And 制单日期 <= #" & ld & "# And [_Identify] <> " & e.DataRow("_Identify")
     这个代码要怎么改成AB固定字母?          

--  作者:有点蓝
--  发布时间:2021/4/12 20:15:00
--  
flt = "制单日期 >= #" & fd & "# And 制单日期 <= #" & ld & "# And [_Identify] <> " & e.DataRow("_Identify")