多了一个end if
if isempty(application("i")) then
autoid = 1
application.Lock()
application("i") =1
application.UnLock()
elseif application("i") = 9999 then
autoid = 9999
else
autoid = application("i")+1
application.Lock()
application("i") = autoid
application.UnLock()
end if