Dim TmpId As Long
'判断是否选择了要删除的记录
If Adodc1.Recordset.EOF = True Then
MsgBox "请选择记录"
Exit Sub
End If
'保存当前的记录位置
p = Adodc1.Recordset.AbsolutePosition
'读取当前记录的户型信息
TmpId = Adodc1.Recordset.Fields(0)
'判断房屋信息中是否包含此楼房的信息
If MyHouse.HaveStyle(TmpId) = True Then ‘这地方报错
MsgBox "此户型已经使用，不能删除"
Exit Sub
End If
'确认删除
If MsgBox("是否删除当前行?", vbYesNo, "确认") = vbYes Then
MyStyle.Delete (TmpId)
Refresh_Style
If p - 1 > 0 Then
Adodc1.Recordset.Move p - 1
End If
End If
MsgBox "删除成功"