以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 求助:自动编号。 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=50163) |
||||
-- 作者:hz1717 -- 发布时间:2014/4/30 14:09:00 -- 求助:自动编号。 老师好: 关于自动编号,我参照帮助文件做了,原来能生成,同时一个个顺延生成。 但是,今天打开后,自动编号行一直生成 序号为1. 代码没有动过。应该不存在问题,是什么原因。
|
||||
-- 作者:Bin -- 发布时间:2014/4/30 14:12:00 -- 这个需要调试分析才知道. 建议文件发上来我们看一下吧
|
||||
-- 作者:hz1717 -- 发布时间:2014/4/30 14:29:00 --
密码为:1
入库主表: 中 ,入库单号为自动生成。 入库类型、制单日期为必填。。
|
||||
-- 作者:Bin -- 发布时间:2014/4/30 14:39:00 -- 你的条件代码有缺陷,一旦到达月份最后一条就会失效了,刚好今天是4月最后一天 改成这样即可. flt = "入库类型 = \'" & e.DataRow("入库类型") & "\' And 制单日期 >= #" & fd & "# And 制单日期 <= #" & ld & " 23:59:59# And [_Identify] <> " & e.DataRow("_Identify") |
||||
-- 作者:有点甜 -- 发布时间:2014/4/30 14:44:00 -- 或者这样改
Select e.DataCol.Name Dim bh As String = e.DataRow("入库类型") & "-" & Format(d,"yyyyMM") & "-" \'生成编号的前缀 If e.DataCol.Name = "入库类型" Then If e.DataCol.Name = "制单日期" Then |
||||
-- 作者:hz1717 -- 发布时间:2014/4/30 14:48:00 -- 谢谢 |