Foxtable(狐表)用户栏目专家坐堂 → 删除固话代码


  共有6889人关注过本帖树形打印复制链接

主题:删除固话代码

帅哥哟,离线,有人找我吗?
weibu
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:659 积分:5357 威望:0 精华:0 注册:2018/5/19 22:27:00
删除固话代码  发帖心情 Post By:2022/10/27 16:50:00 [显示全部帖子]

老师我一个字段“电话”里面内容如:  0375-3507610,0371-67902162,0375-3507611,15836945365,15290763237
手机号和固话。怎么写代码删除这里面的固话,仅保留手机号
[此贴子已经被作者于2022/10/27 16:51:03编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
weibu
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:659 积分:5357 威望:0 精华:0 注册:2018/5/19 22:27:00
  发帖心情 Post By:2022/10/27 19:30:00 [显示全部帖子]

老师这个代码不执行,为啥

For Each dr As DataRow In DataTables("线索").DataRows
    If dr.IsNull("更多电话") = False Then '如果工号列不为空
        Dim nms() As String = dr("更多电话").Split(",") '将工号列内容拆分成数组
        For Each nm As String In nms '遍历参与加工此产品的每个工号
        If nm.StartsWith("1") = False Then
           dr("更多电话") = dr("更多电话").Trim(nm)
        End If 
        Next
    End If
Next

 回到顶部
帅哥哟,离线,有人找我吗?
weibu
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:659 积分:5357 威望:0 精华:0 注册:2018/5/19 22:27:00
  发帖心情 Post By:2022/11/2 10:37:00 [显示全部帖子]

老师根据上面代码我想达到下方格式,就是把电话号码中间的,号替换为换行。并在停靠窗口中如下显示,代码怎么加?

图片点击可在新窗口打开查看此主题相关图片如下:微信截图_20221102103537.png
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
weibu
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:659 积分:5357 威望:0 精华:0 注册:2018/5/19 22:27:00
  发帖心情 Post By:2022/11/2 10:56:00 [显示全部帖子]

谢谢,蓝老师。在停靠窗口双击某个电话号码,现在就选中了,我想双击选择并直接复制此电话号码到剪贴板。这个代码呢?

图片点击可在新窗口打开查看此主题相关图片如下:微信截图_20221102105446.png
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
weibu
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:659 积分:5357 威望:0 精华:0 注册:2018/5/19 22:27:00
  发帖心情 Post By:2022/11/2 15:27:00 [显示全部帖子]

老师在备注类型的停靠窗口双击只复制被选中的这一个电话号码不会弄?我知道双击复制某个单元格内容

 回到顶部
帅哥哟,离线,有人找我吗?
weibu
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:659 积分:5357 威望:0 精华:0 注册:2018/5/19 22:27:00
  发帖心情 Post By:2022/11/4 14:03:00 [显示全部帖子]

老师在文本框选定的这个电话号码,代码是啥?

还有个问题老师,就是现在这个字段的电话号码,我想For   next逐个遍历每个手机号,每个手机号间隔是换行,我怎么遍历的代码?

 回到顶部