自动编号出现类型不匹配？

jsf2008

Private Sub Form_Load() PH.Locked = True End Sub Private Sub PH_GotFocus() Dim a As Long Dim b As Long a = Format(Date, "yyyymmdd") b = Left(DMax("PH", "商品资料"), 12) If Me![PH] <> "" Then Exit Sub End If If b >= a Then Me![PH] = DMax("PH", "商品资料") + 1 Else Me![PH] = Format(Date, "yyyymmdd") & 0 & 0 & 0 + 1 End If PH.Locked = True End Sub Private Sub PH_LostFocus() PH.Locked = False End Sub

PH字段为文本类型，请问自动编号出现类型不匹配？

jsf2008

谢了，差不多了

kangking

再发一次，但愿这次不会出鬼。

jsf2008

把你的下载下来就能不递增的。

kangking

一定是见鬼了，我明明做好的，怎么都一是我写的代码了？

jsf2008

请问你自动编号不递增。编号都是相同的

kangking

示例

jsf2008

按日期例如：20091031，想编成:091031001----091031002----091101001-----按系统日期递增001---009--010。012。013----------

kangking

看了你的代码，不知道你要什么样的编号，是nak001,nak002这样一直编下去吗？请详细说明你的编号原则。

jsf2008

按你的意思没有出错了，是不能自动编号了