调用手机拨打电话 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 调用手机拨打电话

共有2575人关注过本帖树形打印复制链接主题：调用手机拨打电话

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/2/27 9:50:00 [显示全部帖子]

With .Body.AddRow(r("日期"),r("报备人"),r("推荐人"),r("返利"),r("用户姓名"),r("用户电话"),r("楼盘"),r("单元房号"),r("风格偏好"),r("备注"))

改成

With .Body.AddRow(r("日期"),r("报备人"),r("推荐人"),r("返利"),r("用户姓名"),"<a href='tel:" & r("用户电话") & "'>" & r("用户电话") & "</a>",r("楼盘"),r("单元房号"),r("风格偏好"),r("备注"))

[此贴子已经被作者于2018/2/27 9:50:32编辑过]

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/3/25 16:55:00 [显示全部帖子]

打电话，参考

Select Case e.Path
    Case "test.htm", ""
        Dim wb As New weui
        With wb.AddPreview("","pv1","付款金额","￥2400")
            .AddItem("项目1","内容1")
            .AddItem("项目2","<a href='tel:" & 10086 & "'>" & 10086 & "</a>")
            .AddItem("项目3", "电动打蛋机")
            .Addbutton("操作", "", 1, "onclick=""location='tel:10086'""")
       End With
        wb.AppendHTML("<br/>")
        e.WriteString(wb.Build) '生成网页
End Select

累计数量，必须使用ajax累计，参考 http://www.foxtable.com/mobilehelp/scr/0108.htm

http://www.foxtable.com/mobilehelp/scr/0103.htm

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/3/26 9:06:00 [显示全部帖子]

如果要用变量，参考

Select Case e.Path
    Case "test.htm", ""
        Dim wb As New weui
        With wb.AddPreview("","pv1","付款金额","￥2400")
            .AddItem("项目1","内容1")
            .AddItem("项目2","<a href='tel:" & dr("电话") & "'>" & dr("电话") & "</a>")
            .AddItem("项目3", "电动打蛋机")
            .Addbutton("操作", "", 1, "onclick=""location='tel:" & dr("电话") & "'""")
       End With
        wb.AppendHTML("<br/>")
        e.WriteString(wb.Build) '生成网页
End Select

下一主题 >> << 上一主题

主题：调用手机拨打电话