主题：[求助][求助]代码问题求助

 代码

Select Case e.DataCol.name
    Case "联系电话"
        If e.DataRow.IsNull("联系电话") Then
            e.DataRow("号码归属地") = Nothing
        Else
            Dim tele As String = e.NewValue.SubString(0,7)
            Dim phone As String = e.NewValue.SubString(0,4)
            Dim fdr As DataRow = DataTables("手机号码归属地").Find("手机编码 = '" & tele & "' Or 区号 = '" & phone & "'")
            If fdr IsNot Nothing Then
                e.DataRow("号码归属地") = fdr("地区") & " " & fdr("卡类别")
            End If
        End If
End Select

 手机归属地还可以看看这个帖子，毕竟带着数据走很笨重。

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=25046