Foxtable(狐表)用户栏目专家坐堂 → 通话记录


  共有3657人关注过本帖树形打印复制链接

主题:通话记录

帅哥哟,离线,有人找我吗?
yifan3429
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2466 积分:22761 威望:0 精华:0 注册:2011/3/29 17:14:00
通话记录  发帖心情 Post By:2022/2/24 2:30:00 [只看该作者]

 
With .Body.AddRow(r("用户姓名"),r("楼盘"),r("单元房号"),r("报备人"),"<a href='tel:" & r("用户手机") & "'>" & r("用户手机") & "</a>",r("用户来源"))

换色部分已经可以直接拨打电话,如何做后台的记录里增加行 记录当前用户的id和姓名和次数

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107880 积分:548763 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/2/24 9:10:00 [只看该作者]

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=171217&authorid=0&page=0&star=1

 回到顶部
帅哥哟,离线,有人找我吗?
yifan3429
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2466 积分:22761 威望:0 精华:0 注册:2011/3/29 17:14:00
  发帖心情 Post By:2022/2/28 18:32:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:手机通讯录.foxdb


图片点击可在新窗口打开查看此主题相关图片如下:企业微信截图_20220228182752.png
图片点击可在新窗口打开查看
希望
图片点击可在新窗口打开查看此主题相关图片如下:企业微信截图_20220228182715.png
图片点击可在新窗口打开查看
通过手机端点击电话拨打时 在备忘录新增一条 日期记录
[此贴子已经被作者于2022/2/28 19:05:53编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107880 积分:548763 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/2/28 21:10:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:手机通讯录.zip


js文件
function xxjs函数(name){
    sendAjaxText(name,'getdata.htm','',false);
}



 回到顶部
帅哥哟,离线,有人找我吗?
yifan3429
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2466 积分:22761 威望:0 精华:0 注册:2011/3/29 17:14:00
  发帖心情 Post By:2022/3/3 22:20:00 [只看该作者]

 With .Body.AddRow(r("客户称呼"),"<a href='tel:" & r("移动电话") & "' >" & r("移动电话") & "</a>","<a href='sms:" & r("移动电话") & "' >" & "发短信</a>" ,"<a href='sms:" & r("备注") & "'>" & "备注</a>",r("互动次数"))
图片点击可在新窗口打开查看此主题相关图片如下:企业微信截图_1646317152124.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:e4280ce03013b41bd39d9ebe9bd96853.jpg
图片点击可在新窗口打开查看

后面的是被注释了,去掉后还是不能记录
位置也会错位了
[此贴子已经被作者于2022/3/3 22:30:07编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107880 积分:548763 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/3/3 22:29:00 [只看该作者]

那不是注释,代码编辑器颜色显示有问题而已。4楼我测试是没有问题的,请上传有问题的实例说明

 回到顶部
帅哥哟,离线,有人找我吗?
yifan3429
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2466 积分:22761 威望:0 精华:0 注册:2011/3/29 17:14:00
  发帖心情 Post By:2022/3/3 23:43:00 [只看该作者]

前面做成了自定义函数 test.html
 
        Dim wb As New WeUI '定义一个基于weui框架的网页生成器
        wb.AddPageTitle("","100", "","客户通讯录")
        With wb.AddTable("","Table1")
            .Alternate = 3
            Dim nms() As String = {"客户称呼","移动电话","短讯","备注","互动"}
            .Head.AddRow(nms)
            For Each r As DataRow In DataTables("通讯录").sqlSelect("")
                With .Body.AddRow(r("客户称呼"),"<a href='tel:" & r("移动电话") & "' >" & r("移动电话") & "</a>","<a href='sms:" & r("移动电话") & "' >" & "发短信</a>" ,"<a href='sms:" & r("备注") & "'>" & "备注</a>",r("互动次数"))
                End With
            Next
        End With
        wb.AppendHTML("<script src='./lib/ajaxform.js'></script>")
        e.WriteString(wb.Build)
test.htm这个可以打开并点击  Tables("系统_使用次数").AddNew就是不会反应有新增

单独做成了自定义函数 getdata.html

Dim e As RequestEventArgs = args(0)
Dim r As Row = Tables("系统_使用次数").AddNew
r("手机号") = e.PlainText

这个代码没有反应 下面是js内容截图


图片点击可在新窗口打开查看此主题相关图片如下:企业微信截图_20220303232245.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2022/3/3 23:48:50编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107880 积分:548763 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/3/4 8:30:00 [只看该作者]

请重新上传有问题的实例说明问题

 回到顶部
帅哥哟,离线,有人找我吗?
yifan3429
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2466 积分:22761 威望:0 精华:0 注册:2011/3/29 17:14:00
  发帖心情 Post By:2022/3/4 13:34:00 [只看该作者]

 实例
包含了js源码 内部函数
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:手机通讯录.foxdb
[此贴子已经被作者于2022/3/4 13:35:35编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107880 积分:548763 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/3/4 13:53:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:手机通讯录.zip


 回到顶部
总数 24 1 2 3 下一页