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

 楼主，你下次上传的时候，只需要上传少量测试数据就行了。

 用下面的代码替换原来的，就可以了。

        If e.DataRow.IsNull("联系电话") Then
            If e.DataRow.IsNull("办公电话") Then
                e.DataRow("号码归属地") = Nothing
            Else
                If e.NewValue IsNot Nothing AndAlso e.NewValue.Length >= 3 Then
                    Dim qh1 As String = e.NewValue.SubString(0,4)
                    Dim qh2 As String = e.newvalue.Substring(0,3)
                    Dim phone As DataRow = DataTables("手机号码归属地").Find("区号 = '" & qh1 & "' Or 区号 = '" &  qh2 & "'")
                    If phone IsNot Nothing Then
                        e.DataRow("号码归属地") = phone("地区") & " " & phone("卡类别")
                    End If
                End If
            End If
        Else
            If e.NewValue IsNot Nothing AndAlso e.NewValue.length >= 7 Then
                Dim tele As String = e.NewValue.SubString(0,7)
                Dim phone As DataRow = DataTables("手机号码归属地").Find("手机编码 = '" & tele & "'")
                If phone IsNot Nothing Then
                    e.DataRow("号码归属地") = phone("地区") & " " & phone("卡类别")
                End If
            End If
        End If

谢谢 ！！下次一定改正，少上传些！！节约空间资源~~~~

    Case "办公电话","联系电话"
        Dim bgdh As String = e.DataRow("办公电话")
        Dim lxdh As String = e.DataRow("联系电话")
        Dim str As String
        If bgdh.Length > = 4 Then '电话号码正常 10 -12 位
            Dim fdr1 As DataRow =  DataTables("手机号码归属地").Find("区号 = " & bgdh.SubString(0,4) & " Or 区号 = " & bgdh.SubString(0,3))
            If fdr1 IsNot Nothing Then
                str ="电话归属地:" & fdr1("地区")
            End If
        ElseIf bgdh.Length = 3 Then '有的区号为3位
            Dim fdr1 As DataRow =  DataTables("手机号码归属地").Find("区号 = " & bgdh.SubString(0,3))
            If fdr1 IsNot Nothing Then
                str ="电话归属地:" & fdr1("地区")
            End If
        End If
        If lxdh.Length >= 7 Then '按手机编码7位查
            Dim fdr2 As DataRow =  DataTables("手机号码归属地").Find("手机编码 = " & lxdh.SubString(0,7))
            If fdr2 IsNot Nothing Then
                str =str & "    手机归属地:" & fdr2("地区") & fdr2("卡类别")
            End If
        End If
        e.DataRow("号码归属地") = str

 

我的也试试,呵呵 办公电话输入3位4位就能查,手机号码输入了7位就能查,记得把号码归属地长度改了

效果
此主题相关图片如下：未命名.jpg

谢谢，您的想法比我原来想的更完美。多谢指点！！！

其实我也是FT的小白,呵呵,边学习边研究

谦虚了，进步很快……