HOHO，楼上的大大真认真啊。学习。嘿嘿~
我是新手,但我很虚心,对我发的问题请不要取笑,谢谢
2005-12-27 14:17
2005-12-27 14:23
2005-12-27 15:34
兄弟，我已经说的很清楚了，除非我把程序写好帖上了，兄弟，你还是自己研究吧，我没有那么多的水~~~~~~~`
[此贴子已经被作者于2005-12-27 23:31:12编辑过]
2005-12-27 23:09
2005-12-27 23:28
程序已經寫好，但為什么祂不前面補0呢？
我在數據庫里添加了 WX 05 12 001 -003
但在前如添加的時候 流水號自動生成為 WX 05 12 4 應該要為 WX 05 12 004
請大家看看是哪里出錯了！
<%
stra="WX"&right(year(now()),2)&month(now)
connstr = "DBQ="+server.mappath("../party.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UserCommitSync=Yes;"
Set Conn = Server.CreateObject("ADODB.Connection")
set rs=server.createobject("adodb.recordset")
conn.open connstr
rs.Open "select * from weix where left(dj,6)='"&stra&"' order by dj desc",conn,1,3
if rs.recordcount=0 then
intstr="001"
else
intstr=right(rs("dj"),3)
intstr=cint(intstr)+1
end if
IDNO=stra&intstr
%>
[此贴子已经被作者于2005-12-28 8:22:02编辑过]
2005-12-28 08:15
呵呵，我用一個蠢辦法解決了，在
intstr=right(rs("dj"),5) （3改成了5）
intstr=cint(intstr)+1
下加一行
intstr=right(intstr,3)
[此贴子已经被作者于2005-12-28 8:46:38编辑过]
2005-12-28 08:33
2005-12-28 11:00
程序已經寫好，但為什么祂不前面補0呢？
我在數據庫里添加了 WX 05 12 001 -003
但在前如添加的時候 流水號自動生成為 WX 05 12 4 應該要為 WX 05 12 004
請大家看看是哪里出錯了！
<%
stra="WX"&right(year(now()),2)&month(now)
connstr = "DBQ="+server.mappath("../party.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UserCommitSync=Yes;"
Set Conn = Server.CreateObject("ADODB.Connection")
set rs=server.createobject("adodb.recordset")
conn.open connstr
rs.Open "select * from weix where left(dj,6)='"&stra&"' order by dj desc",conn,1,3
if rs.recordcount=0 then
intstr="001"
else
intstr=right(rs("dj"),3)
intstr=cint(intstr)+1
end if
IDNO=stra&intstr
%>
INSTR是STRING数据类型，当转换成INT数据类型的时候，前面的‘0’就被忽略了。
改为这样：
else
intstr="1" & right(rs("dj"),3)
intstr=right(cstr(cint(intstr)+1),3)
2005-12-28 16:05