Foxtable(狐表)用户栏目专家坐堂 → 电话号码显示问题


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

主题:电话号码显示问题

帅哥,在线噢!
有点蓝
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107812 积分:548411 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/3/24 15:32:00 [只看该作者]

重新发代码,去掉行号

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


加好友 发短信
等级:小狐 帖子:326 积分:2519 威望:0 精华:0 注册:2020/3/2 23:15:00
  发帖心情 Post By:2021/3/24 15:38:00 [只看该作者]

For Each dr As DataRow In DataTables("客户联系人信息表").DataRows
    If dr("电话").contains("-") = False Then
        If dr("电话") IsNot Nothing And dr("电话").StartsWith("0") = False Then
            dr("电话") = dr("电话").insert(7,"-").insert(3,"-")
        End If
        If dr("电话") IsNot Nothing And dr("电话").StartsWith("0") Then
            dr("电话") = dr("电话").insert(4,"-")
        End If
    End If
Next

 回到顶部
帅哥,在线噢!
有点蓝
  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107812 积分:548411 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/3/24 15:41:00 [只看该作者]

For Each dr As DataRow In DataTables("客户联系人信息表").DataRows
    If dr.isnull("电话") =False
        If dr("电话").contains("-") = False Then
            If dr("电话").StartsWith("0") = False Then
                If dr("电话").length > 7
                    dr("电话") = dr("电话").insert(7,"-").insert(3,"-")
                End If
            Else
                If dr("电话").length > 4
                    dr("电话") = dr("电话").insert(4,"-")
                End If
            End If
        End If
    End If
Next

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


加好友 发短信
等级:小狐 帖子:326 积分:2519 威望:0 精华:0 注册:2020/3/2 23:15:00
  发帖心情 Post By:2021/3/25 10:23:00 [只看该作者]

谢谢老师

 回到顶部
总数 14 上一页 1 2