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

今天看到论坛上有电话遮掩的帖子，所以自己练习了一下。

可以看看这个：

http://www.foxtable.com/help/topics/1534.htm

 

里头的部分知识和你有点沾边

好像不沾边啊~~

 代码

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

谢谢 ~~学习了~~盼早日出下一讲的视频！！