流水号的问题!分不多!希望路过的人帮忙一下!谢了`````

[ct114047689]

我的小票号是由日期时间星期和流水号组成
Text1.Text = Format(Date, "yyyyMMdd") & Format(Time, "hhmmss") & Format(Weekday(Now), "dd") & Format(k, "0000")
Set rs = conn.Execute("select * form zdls where zdno>=0")
If rs.EOF = True And rs.BOF = True Then
k = k + 1
Else
k = k + 1
其中K表示流水号!但就为什么不能加1啊!谢谢
在线等~

[ct114047689]

我是LONG 可为什么还是不能运行啊!

[cangwu_lee]

dim K as long

Text1.Text = Format(Date, "yyyyMMdd") & Format(Time, "hhmmss") & Format(Weekday(Now), "dd") & Format(k, "0000")
Set rs = conn.Execute("select * form zdls where zdno>=0")
If rs.EOF And rs.BOF Then
k = k + 1
Else
k = k + 1
End if

中间应该有出错，被跳过了。

--------------------------------------------------------------
程序，犹如人生。

[韧恒]

你的K是long型还是Variant？

是long就应该没问题。