If SSTab4.Tab = 1 Then
If DeletePeiFang = True Then
If Adodc2.Recordset.RecordCount = 0 Then
MsgBox "列表为空!", vbOKOnly
Exit Sub
Else
If MsgBox("是否要删除选定的测试条件?", vbOKCancel) = vbOK Then
Adodc2.Recordset.Delete
Adodc2.Recordset.MoveFirst
DeletePeiFang = False
Else
Adodc2.Recordset.MoveLast
End If
End If
End If
End If
这是代码
哪里有问题?