vb6.0如何按每天日期进行新的编号

蜕变htf 发布于 2023-11-08 21:45， 1472 次点击

哪位大师可以帮忙看下下面代码如何更改成按每天日期进行新的编号，如当日是：2023-10-12-RZ0001，第二日则是：2023-10-13-RZ0001，2023-10-13-RZ0002

Private Sub zdbh() '自动编号+1
'自动编号~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Call OpenConn
SQL = "select 编号 from 施工日志表 ORDER BY 编号"
rs.Open SQL, cn, 1, 1
  If rs.RecordCount > 0 Then
     rs.MoveLast
     Text1(0).Text = Date & "-RZ" & Format(Val(Right(rs.Fields("编号"), 4) + 1), "0000")
  Else
     Text1(0).Text = Date & "-RZ0001"
  End If
Call CloseConn
End Sub

7 回复

cwa99582023-11-09 08:26

SQL = "select 编号 from 施工日志表 where 编号 like " & Date & "-RZ0001 ORDER BY 编号 "

yuma2023-11-09 19:14

Private  Sub  zdbh()  '自动编号+1
     '自动编号~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
     Call  OpenConn
     SQL  =  "select  编号  from  施工日志表  ORDER  BY  编号"
     rs.Open  SQL,  cn,  1,  1
         If  rs.RecordCount  >  0  Then
             rs.MoveLast
             Text1(0).Text  =  Date  &  "-RZ"  &  Format(Val(Right(rs.Fields("编号"),  4)  +  1),  "0000")
         Else
             Text1(0).Text  =  Date  &  "-RZ0001"
         End  If
     Call  CloseConn
End  Sub

蜕变htf2023-11-09 21:46

回复 2楼 cwa9958

大师，代码运行不了啊！
SQL = "select 编号 from 施工日志表 where 编号 like " & Date & " -RZ0001 ORDER BY 编号 "

cwa99582023-11-10 08:59

回复 4楼蜕变htf

哦哦，好久没有用了，忘记细节了。
SQL = "select 编号 from 施工日志表 where 编号 like '" & Date & "-RZ0001' ORDER BY 编号 "

要加上单引号

[此贴子已经被作者于2023-11-10 09:07编辑过]

蜕变htf2023-11-10 20:35

回复 5楼 cwa9958

大师啊，现在代码是可以运行了，但是职能从0001增加到0002，后面就一直是这个编号了！不能一直往上加了吗？

cwa99582023-11-11 10:47

SQL = "select 编号 from 施工日志表 where 编号 like '" & Date & "%' ORDER BY 编号"

这样就可以了。

蜕变htf2023-11-11 19:01

回复 7楼 cwa9958

谢谢大师这下可以了运行了