主题：[求助]求助这个代码应该怎么修改

呃，这个是肯定的，你的代码你里有 判断 名称列和委托人列 的代码，你删除列当然会报错。

狐爸爸果然厉害，代码简练。

那请问我下面这段代码应该怎么修改呢？

 代码太累赘了。

 这样跟你说吧，你也应该知道怎么做的。

 你按下delete的时候，单元格就空了，无法对 "" 的字符串执行 e.NewValue.SubString(0,7) 等操作。楼主。

 多加一下判断吧。

已我现在的水平真不知道应该加那个判断。不是有这么一个判断  ElseIf e.DataRow.IsNull("联系电话") And e.DataRow.IsNull("办公电话") Then e.DataRow("号码归属地") = Nothing 这样还不行吗？

 呵呵，很简单，加一个判断就可以了。

Case "联系电话", "办公电话"
    If e.NewValue.Length >= 7 Then
        Dim phone As String = e.NewValue.SubString(0,7)
        Dim fdr1 As DataRow = DataTables("手机号码归属地").Find("手机编码 = '" & phone & "'")
       
        Dim tele1 As String = e.NewValue.SubString(0,4)
        Dim tele2 As String = e.newvalue.Substring(0,3)
        Dim fdr2 As DataRow = DataTables("手机号码归属地").Find("区号 = '" & tele1 & "' Or 区号 = '" &  tele2 & "'")
       
        If e.DataRow.IsNull("联系电话") =False And e.DataRow.IsNull("办公电话") =False Then
            e.DataRow("号码归属地") = fdr1("地区") & " " & fdr1("卡类别")
        ElseIf e.DataRow.IsNull("联系电话") And e.DataRow.IsNull("办公电话") Then
            e.DataRow("号码归属地") = Nothing
        ElseIf e.DataRow.IsNull("联系电话") =True And e.DataRow.IsNull("办公电话") =False Then
            e.DataRow("号码归属地") = fdr2("地区") & " " & fdr2("卡类别")
        ElseIf e.DataRow.IsNull("联系电话") =False And e.DataRow.IsNull("办公电话") = True Then
            e.DataRow("号码归属地") = fdr1("地区") & " " & fdr1("卡类别")
        Else e.DataRow("拼音") = fdr1(e.NewValue) And fdr2(e.NewValue)
        End If
    End If

先谢谢林老师 热情的答复，不嫌弃我麻烦。谢谢！！

上传一个简单的例子吧，说起来麻烦。

 fdr1(e.NewValue) And fdr2(e.NewValue) 这句错误了