关于On Error GoTo 在捕捉"键立数据库"SQL文时遇到的问题....

[luolan0082]

conn.Open
Dim f As Integer 'f这是一个计数器

For f = 1 To dpPCount Step 1
On Error GoTo Err100 '如果数据库有这个表就建立第下一个表
rst.Open "create table worktimetemp" & f & "(WorkDate date,EntryTime date,ExitTime date,Worktime int,Overtime int) ", conn, adOpenDynamic, adLockOptimistic

rst.Open "delete from worktimetemp" & f & "", conn
Err100:
Next f
conn.Close
条件:dpPCount 里的值是5的话,数据库中有3个表;分别是worktimetemp1,worktimetemp2,worktimetemp3
目的:键立5个表,分别是worktimetemp1到worktimetemp5...

出错的地方:On Error GoTo Err100 用来捕错,第一次可以正常跳到Err100这个位置上,第二次后就报错,错误是"worktimetemp2"已存在...

不知道怎么来解决这个问题.谢谢大家帮忙。

[luolan0082]

我知道方法了。。。

用这个来解决 Err.Clear
Resume

[hupeng213]

????!!!!

有这么写的吗？？

[luolan0082]

Err100:
Err.Clear
Resume
Next f

不是这么写吗?