以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  调用手机拨打电话  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=114962)
--  作者：yifan3429
--  发布时间：2018/2/26 22:35:00
--  调用手机拨打电话
Dim wb As New WeUI \'定义一个基于weui框架的网页生成器
Dim e As RequestEventArgs = args(0)
Dim u As String = e.cookies("name")
With wb.AddTable("","Table1")
    .Alternate = 3
    Dim nms() As String = {"日期","报备人","推荐人","返利","用户姓名","用户电话","楼盘","单元房号","风格偏好","备注" }
    .Head.AddRow(nms)
    For Each r As DataRow In DataTables("终端用户").sqlSelect("","", "日期 Desc")       
        With .Body.AddRow(r("日期"),r("报备人"),r("推荐人"),r("返利"),r("用户姓名"),r("用户电话"),r("楼盘"),r("单元房号"),r("风格偏好"),r("备注"))
        End With
    Next
End With
e.WriteString(wb.Build)

用户电话 苹果直接可以拨打  安卓不行 怎么实现呢
[此贴子已经被作者于2018/2/26 22:35:02编辑过]
--  作者：有点蓝
--  发布时间：2018/2/26 23:17:00
--  
参考：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=106829
--  作者：有点甜
--  发布时间：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编辑过]
--  作者：yifan3429
--  发布时间：2018/3/25 10:24:00
--  
      \'------------------------------------------------------------------------------------------------------------------------------
                For Each dr As DataRow In DataTables("报价申请").SqlSelect("[申请人] = \'" & name & "\'", "","申请日期 Desc")
                    With wb.AddPreview("","pv" & dr("_Identify"),"PDCA",dr("楼盘")&":"&dr("单元房号"))
                        .AddItem("报价ID", dr("报价ID"))
                        .AddItem("申请人", dr("申请人"))

                        .AddItem("客户电话", dr("客户电话"))   希望调用直接拨打电话
                        
                        .AddItem("申请日期", dr("申请日期"))
                        .AddItem("预算价格",dr("预算价格"))
                        .AddItem("报价金额",dr("报价金额"))
                        .AddItem("用料说明",dr("用料说明"))
                        .AddItem("基材要求", dr("基材要求"))
                        .AddItem("油漆说明", dr("油漆说明"))
                        .AddItem("报价人", dr("报价人"))
                        .AddItem("计划时间", dr("计划时间"))
                        .AddItem("完成时间", dr("完成时间"))
                           .Addbutton("点赞", "", 1, "")       希望在点赞列积累数量              
                        .Addbutton("<a href=\'tel:" & r("业务电话") & "\'>" & r("业务电话") & "</a>")   希望调用直接拨打电话
                        
                    End With
                    wb.AppendHTML("<br/>")
                Next
                e.WriteString(wb.Build)
                
                \'-----------------------------------------------------------------------------------
            End If
        End If
End Select
[此贴子已经被作者于2018/3/25 10:26:46编辑过]
--  作者：有点甜
--  发布时间：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

 
--  作者：yifan3429
--  发布时间：2018/3/26 1:59:00
--  
.Addbutton("联系报价", "", 1, "客户电话")""")
回报错
--  作者：有点甜
--  发布时间：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