以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  移动表格字段加密成*号  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=189953)
--  作者：yifan3429
--  发布时间：2024/1/7 18:26:00
--  移动表格字段加密成*号

 Dim nms() As String = {"产品","客户","数量","单价","日期"}

            .Head.AddRow(nms)

            For Each r As DataRow In DataTables("订单").Select("数量 > 100", "日期 Desc")

                With .Body.AddRow(r("产品"),r("客户"),r("数量"))

                    .AddCell(Format(r("单价"),"#0.00"))

                    .AddCell(Format(r("日期"),"MM月dd日"))

                End With

            Next


移动表格客户加密成*号
--  作者：有点蓝
--  发布时间：2024/1/7 20:20:00
--  
With .Body.AddRow(r("产品"),"*",r("数量"))
--  作者：yifan3429
--  发布时间：2024/1/7 22:21:00
--  
知识显示*实际还是需要存在的
类似PC端的
If e.Col.Name = "单元房号" Then \'如果正在绘制的是密码列
    e.Text = "*******" \'那么用*代替原来的内容
End If
--  作者：有点蓝
--  发布时间：2024/1/7 22:22:00
--  
没看懂什么意思
--  作者：yifan3429
--  发布时间：2024/1/8 22:24:00
--  
 .body.AddRow( dr("到访日期"), dr("邀约人"), dr("到访分类"), dr("楼盘") & "/" & dr("单元房号"), dr("客户称呼"), "<a href=\'tel:" & dr("客户手机") & "\'>" & dr("客户手机") & "</a>").Attribute = "onclick=alert(11)"

手机号怎么隐藏 可以直接拨打出去
--  作者：有点蓝
--  发布时间：2024/1/8 22:30:00
--  
.body.AddRow( dr("到访日期"), dr("邀约人"), dr("到访分类"), dr("楼盘") & "/" & dr("单元房号"), dr("客户称呼"), "<a href=\'tel:" & dr("客户手机") & "\'>***</a>").Attribute = "onclick=alert(11)"