主题：[求助]提示“”字符串与data的转换

我想删除“EMS编辑”表格的当前行时，先清除“数据表”的对应列的列值，其中一个时日期型，改成is nothing 或 isnull都不行请老师指教！谢谢！

With Tables("EMS编辑_Table1")
   If .Current IsNot Nothing  Then
      Dim dr2 As DataRow = DataTables("送达管理").find("案号 = '" & .Current("案号") & "' and 一审_原告 like '%" & .Current("收件人_姓名") & "%'")
            If dr2 IsNot Nothing Then
                dr2("一审_原告_送达方式") = ""
                dr2("一审_原告_送达日期") = ""
            End If

For i As Integer = .BottomPosition To .TopPosition Step -1   '删除行
                .Rows(i).Delete()
            Next
        End If
End With

选中单行执行代码没问题，如果拉黑选中多行或者点击列标全选行，前面清理其他表对应数据的代码就不执行了，请老师看看是哪里的原因？

Dim Result As DialogResult
Result = MessageBox.Show("慎!!!是否删除选定数据!"& vbcrlf &"是---将一并删除此案之前录入的送达信息"& vbcrlf &"否---仅删除选中行数据保留之前录入的送达信息", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
   
    With Tables("EMS编辑_Table1")
        If .Current IsNot Nothing  Then
            If .Current("收件人_单位名称") = "" Then   '单位名称为空,就找姓名
                If .Current("收件人_姓名") <> "" Then
                    Dim dr2 As DataRow = DataTables("送达管理").find("案号 = '" & .Current("案号") & "' and 一审_原告 like '%" & .Current("收件人_姓名") & "%'")
                    If dr2 IsNot Nothing Then
                        dr2("一审_原告_送达方式") = ""
                        dr2("一审_原告_送达日期") = Nothing
                    End If
                Else            '姓名为空
                    Return
                End If
            Else              '单位名称不为空,就找单位名称
                Dim dr2 As DataRow = DataTables("送达管理").find("案号 = '" & .Current("案号") & "' and 一审_原告 like '%" & .Current("收件人_单位名称") & "%'")
                If dr2 IsNot Nothing Then
                    dr2("一审_原告_送达方式") = ""
                    dr2("一审_原告_送达日期") = Nothing
                End If
            End If
           
            For i As Integer = .BottomPosition To .TopPosition Step -1
                .Rows(i).Delete()
            Next
        End If
    End With
Else    '直接删除当前行
    With Tables("EMS编辑_Table1")
        If .Current IsNot Nothing  Then
            For i As Integer = .BottomPosition To .TopPosition Step -1
                .Rows(i).Delete()
            Next
        End If
    End With
End If