- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助][求助]代码问题求助 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=27781)
-- 发布时间：2013/1/9 22:34:00
-- [求助][求助]代码问题求助
今天看到论坛上有电话遮掩的帖子，所以自己练习了一下。
然后想再加上个查询功能，所以自己按照帮助改了下代码。
但是现在写的代码 只能在 联系电话列里面 输入手机号码才能查询，输入固定电话的区号查不了。
想咨询下 如何修改在 可以使得 联系电话列里 输入手机号码 固定电话都可以查询呢？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目2.part01.rar |
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目2.part02.rar |
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目2.part03.rar |
[此贴子已经被作者于2013-1-9 22:48:34编辑过]
-- 发布时间：2013/1/9 22:37:00
--
可以看看这个：
http://www.foxtable.com/help/topics/1534.htm
里头的部分知识和你有点沾边
-- 发布时间：2013/1/9 22:54:00
--
好像不沾边啊~~
-- 发布时间：2013/1/10 9:14:00
--
代码
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
-- 发布时间：2013/1/10 9:24:00
--
手机归属地还可以看看这个帖子，毕竟带着数据走很笨重。
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=25046
-- 发布时间：2013/1/10 10:19:00
--
谢谢 ~~学习了~~盼早日出下一讲的视频！！