关于On Error GoTo 在捕捉"键立数据库"SQL文时遇到的问题....
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"已存在...
不知道怎么来解决这个问题.谢谢大家帮忙。