当表单提交时自动将记录号加1保存,怎么总提示错误???
我想实现当北京录入人员登录并保存记录时,那么记录号自动存为BJ0000001
上海录入人员登录并保存记录时,那么记录号自动存为SH0000001
以后自动按此规则加1。
提交时总提示:
tmpMaxID=right(MaxIDrs(0),7)+1
类型不匹配: '[string: " "]'
select case Session("Location")
case BJ
strCity="BJ"
case SH
strCity="SH"
end select
strMaxID="select Max(Record) from tblInfo where Location='"&Session("Location")&"'"
set MaxIDrs=conn.execute(strMaxID)
if isNULL(MaxIDrs(0)) then
MaxID="0000001"
else
tmpMaxID=right(MaxIDrs(0),7)+1
select case len(tmpMaxID)
case 1
MaxID="000000" & tmpMaxID
case 2
MaxID="00000" & tmpMaxID
case 3
MaxID="0000" & tmpMaxID
case 4
MaxID="000" & tmpMaxID
case 5
MaxID="00" & tmpMaxID
case 6
MaxID="0" & tmpMaxID
case 7
MaxID=tmpMaxID
end select
end if
Session("MaxID")= strCity & MaxID