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

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

e.WriteString(wb.Build)

用户电话苹果直接可以拨打安卓不行怎么实现呢

[此贴子已经被作者于2018/2/26 22:35:02编辑过]

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编辑过]

'------------------------------------------------------------------------------------------------------------------------------

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/>")

e.WriteString(wb.Build)

'-----------------------------------------------------------------------------------

End If

End Select

[此贴子已经被作者于2018/3/25 10:26:46编辑过]

打电话，参考

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

.Addbutton("联系报价", "", 1, "客户电话")""")

回报错

如果要用变量，参考

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

主题：调用手机拨打电话