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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 使用电话号码

共有4009人关注过本帖树形打印复制链接主题：使用电话号码

刘林

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

加好友

发短信

等级：八尾狐帖子：1936 积分：14850 威望：0 精华：0 注册：2016/4/28 9:58:00

使用电话号码 发帖心情

Post By：2017/9/16 10:15:00 [只看该作者]

请问老师用weui生成表格中有一列是电话号码，我想在菜单中增加使用选择行的电话直接拨打电话，谢谢

有点蓝

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

加好友

发短信

等级：超级版主帖子：107009 积分：544270 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2017/9/16 10:45:00 [只看该作者]

参考：http://blog.csdn.net/cheekis/article/details/41869953

例

Select Case e.Path

Case "test.htm"

Dim wb As New WeUI

With wb.AddListGroup("", "lsg1","简单列表")

.Add("ls1", "新浪主页")

.Add("ls2", "网易主页")

End With

With wb.AddListGroup("", "lsg3", "增加跳转的列表")

.Add("ls5","拨打电话", "10086", "tel:10086")

End With

e.WriteString(wb.Build) '生成网页

End Select

刘林

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

加好友

发短信

等级：八尾狐帖子：1936 积分：14850 威望：0 精华：0 注册：2016/4/28 9:58:00

Post By：2017/9/16 16:16:00 [只看该作者]

老师，因为生成的表格中有个电话码列，我是想增加个菜单“打电话”。双击该行直接选打电话号码就调用到拨号界面，请帮写一下这个代码，你发的个链接看不懂。谢谢

有点蓝

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

加好友

发短信

等级：超级版主帖子：107009 积分：544270 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2017/9/16 16:40:00 [只看该作者]

贴出你的代码

刘林

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

加好友

发短信

等级：八尾狐帖子：1936 积分：14850 威望：0 精华：0 注册：2016/4/28 9:58:00

Post By：2017/9/16 17:59:00 [只看该作者]

With wb.AddTable("","Table1")

.attribute ="table border='1'style = 'text-align:center;line-height: 120% '"

' .PageNumber = page '设置页码

.ActiveSheet = "menu" '指定菜单

.Primarykey = "_Identify" '指定主键,只要是能唯一区分行的列即可,并非一定要表的实际主键.Functions.Execute("edit")

.CreateFromDataTable(dt, False,"","","姓名","角色","班级","电话")

End With

'设计菜单

With wb.AddActionSheet("","menu")

.Add("mnuEdit", "编辑信息").Attribute =""

.Add("mnuEdit", "电话联系","tel:13696057348")

wb.AppendCookie("XSsfzh",e.GetValues("jsoid"))

.Add("mnuDelete", "删除信息").Attribute ="""

.Add("mnuback","返回","",True).Attribute = ""

End With

With wb.AddDialog("","dlg1", "你确定要删除当前老师信息吗?","如果是调出本校请用调出处理")

.AddButton("btnCancel","取消").Kind = 1

.AddButton("btnOK","确定").Attribute = ""

End With

wb.AppendHTML("<script src='./lib/order.js'></script>") '引入脚本文件

e.WriteString(wb.Build)

红色的tel:13696057348取选定表中的电话列的值

有点甜

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

加好友

发短信

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

Post By：2017/9/17 16:48:00 [只看该作者]

参考代码

    Case "test.htm"
        Dim wb As New WeUI
        With wb.AddTable("","Table1")
            .head.AddRow("部门","姓名","年龄","电话","地址") '表头
            .body.AddRow("技术部","张三","36","1008611","中国北京") '数据
            .body.AddRow("技术部","李四","38","10086","中国上海")
        End With
        With wb.AddButtonGroup("","btg",True)
            .Add("btn1","单击显示上拉菜单").Attribute = "onclick=""show('s1')"""
        End With
        With wb.AddActionSheet("","s1")
            .Add("menu3", "菜单项目3").Attribute = "onclick=""location='tel:' + table1.rows[table1.rowSel].cells[3].innerHTML"""
            .Add("menu4","取消","",True)
        End With
        e.WriteString(wb.Build)