loginwjd 发表于：2010-03-26 00:35:03
附档中我自定义自动编号为何老是出错,但将"ABC"改成"123"又可以.谢谢!
如何才能将其中的订单ID改成如 ABC-100324-001 增量为1的自定义编号,其中100324是当天的日期
点击下载此附件
我认为把ABC-100324-001 分为三个字段：文本1(ABC)，文本2(100324)，自动编号,存放也是一样的效果
我不太明白你的意思,感谢你的回帖.
这个自动编号为何不可以自定义类型.
Dim stID As String
If IsNull(Me.OpenArgs) Then
Dim day As String
If IsNull(DLookup("订单ID", "订单")) Then '检查表内是否有数据
stID = "RK" & Format(Date, "yyyymm") & "001"
Else
day = Mid(DMax("订单ID", "订单"), 3, 6) '取出编号中的日期
If day = Format(Date, "yyyymm") Then '对比日期
stID = "RK" & Format(Date, "yyyymm") & Format(CLng(Mid(DMax("订单ID", "订单"), 9, 11) + 1), "000")
Else
stID = "RK" & Format(Date, "yyyymm") & "001"
End If
End If
Else
stID = Me.OpenArgs
End If
Set mADOTransForm = New ADOTransForm
mADOTransForm.InitForm Me, "Select * From 订单 Where 订单ID='" & stID & "'", Me.订单明细_子窗体, "Select * From 订单明细 Where 订单ID='" & stID & "'"
If mADOTransForm.FormDataMode Then
Me.Caption = "添加订单"
Me.订单ID.DefaultValue = "'" & stID & "'"
Else
Me.Caption = "编辑订单"
End If
Me.订单明细_子窗体.Form.订单ID.DefaultValue = "'" & stID & "'"
以上代码为一老师提供,在此致谢.
点击下载此附件
问题在ABC是字母，不能转换成数字。
看了你半天的例题，说实话我是没看懂，太复杂了，除了在表里数据我都输不进去，记得以前看过一位师兄的例子，凭着印象做了个简单的例子，希望对你有所帮助。
点击下载此附件总记录：5篇 页次：1/1 9 1 :
