主题：[求助] 条件删除指定表内容提示错误。

我在表BeforeDeleteDataRow中写有以下命令；想实现当我点击删除按钮时，”业务名称“全部为空的情况下，能够删除"机房板件端口表"中符号条件的行；但是在条件符号的情况下提示错误，帮我看看命令错在哪？

Dim dr As DataRow = e.DataRow

If dr("设备编号") Is Nothing Then

Dim fdr As DataRow = DataTables("机房板件端口表").Find("设备名称 = '" & dr("设备名称") & "' and 设备型号 = '" & dr("设备型号") & "' and 板件型号 = '" & dr("板件型号") & "' and 机房名称 = '" & dr("机房名称") & "' and 板件槽位 = '" & dr("板件槽位") & "'  And 业务名称 Is not null")

If fdr IsNot Nothing Then

    msgbox("该板件端口配有业务,不能删除")

    e.Cancel = True

Else

    DataTables("机房板件端口表").DeleteFor("设备名称 = '" & dr("设备名称") & "' and 设备型号 = '" & dr("设备型号") & "' and 板件型号 = '" & dr("板件型号") & "' and 机房名称 = '" & dr("机房名称") & "' and 板件槽位 = '" & dr("板件槽位") & "'")

End If

End If

此主题相关图片如下：360截图20141009174610296.jpg