[求助]代码请指教

t-back

Function AdNo() As String
Dim Rs As New ADODB.Recordset
Dim Conn As New ADODB.Connection
Dim I As Integer
Set Conn = CurrentProject.Connection
Rs.Open "select count(*) from co where mid(coNO,4,6)=format(date(),'yymmdd')", Conn, adOpenDynamic, adLockOptimistic
If Rs.EOF Then
I = 1
Else
I = Rs.Fields(0) + 1
End If
AdNo = "RG" & Format(Date, "yymmdd") & "-" & "CS" & Format(I + 1, "000")

End Function


各位大大,上面代码不知道错在哪里,

我希望的是能实现日期自动变化,后面的CS号码是递增加1的形式,

即001,002,003,004等一路继续下去..

该如何修改后半节代码,

烦请指正.

谢谢

t-back

哪位大侠指点一下哈

一点通

请参考一下这个例子,或用"编号"搜索一下旧贴

http://www.office-cn.net/vvb/dispbbs.asp?BoardID=2&replyID=53987&id=51382&skin=0