事件1:
For Each r As Row In Tables("批改作業 - Writing_Table3").Rows
If r("作業編號") >= 0 Then
r.Checked = True
End If
Next
For Each r As Row In Tables("批改作業 - Writing_Table3").GetCheckedRows
r.Delete
Next
Tables("作業批改").Current.Delete()
Tables("學生作業").Current("首次批改") = False
e.Form.Close()
事件2:
For Each r As Row In Tables("批改作業 - Assessment Document_Table3").Rows
If r("作業編號") >= 0 Then
r.Checked = True
End If
Next
For Each r As Row In Tables("批改作業 - Assessment Document_Table3").GetCheckedRows
r.Delete
Next
Tables("作業批改").Current.Delete()
Tables("學生作業").Current("首次批改") = False
e.Form.Close()
為甚麼事件1沒有問題, 事件2就出錯了?