数据删除为何不完全?
'通过ID删除一个部门,以及改部门相关连的职位,职员....
Public Function funDelDepartment_bln(ByVal lngD_ID As Long) As Boolean
On Error Resume Next
Dim objCm As New ADODB.Command
With objCm
.ActiveConnection = objCn
.CommandType = adCmdText
.CommandText = "DELETE FROM CheckOnWork WHERE (WorkerID=(SELECT ID FROM Worker WHERE (PositionID=(SELECT ID FROM WorkPosition WHERE DepartmentID = " & lngD_ID & "))))"
.Execute
.CommandText = "DELETE FROM FingerMark WHERE (WorkerID=(SELECT ID FROM Worker WHERE (PositionID=(SELECT ID FROM WorkPosition WHERE DepartmentID = " & lngD_ID & "))))"
.Execute
.CommandText = "DELETE FROM Worker WHERE (PositionID=(SELECT ID FROM WorkPosition WHERE DepartmentID = " & lngD_ID & "))"
.Execute
.CommandText = "DELETE FROM WorkPosition WHERE DepartmentID = " & lngD_ID
.Execute
.CommandText = "DELETE FROM CheckRegulation WHERE DepartmentID = " & lngD_ID
.Execute
.CommandText = "DELETE FROM Department WHERE ID = " & lngD_ID
.Execute
End With
if err.number = 0 then
funDelDepartment_bln = True
else
funDelDepartment_bln = False
end if
Set objRs = Nothing
Set objCm = Nothing
End Function
??为什么有些表中关联的数据没有删除CheckOnWork ,FingerMark ,Worker