- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 通话记录 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=175210)
-- 发布时间：2022/2/24 2:30:00
-- 通话记录
With .Body.AddRow(r("用户姓名"),r("楼盘"),r("单元房号"),r("报备人"),"<a href=\'tel:" & r("用户手机") & "\'>" & r("用户手机") & "</a>",r("用户来源"))
换色部分已经可以直接拨打电话，如何做后台的记录里增加行 记录当前用户的id和姓名和次数
-- 发布时间：2022/2/24 9:10:00
--
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=171217&authorid=0&page=0&star=1
-- 发布时间：2022/2/28 18:32:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:手机通讯录.foxdb |
此主题相关图片如下：企业微信截图_20220228182752.png
希望
此主题相关图片如下：企业微信截图_20220228182715.png
通过手机端点击电话拨打时 在备忘录新增一条 日期记录
[此贴子已经被作者于2022/2/28 19:05:53编辑过]
-- 发布时间：2022/2/28 21:10:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:手机通讯录.zip |
js文件
function xxjs函数(name){
sendAjaxText(name,\'getdata.htm\',\'\',false);
}
-- 发布时间：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
此主题相关图片如下：企业微信截图_1646317152124.png
此主题相关图片如下：e4280ce03013b41bd39d9ebe9bd96853.jpg
后面的是被注释了，去掉后还是不能记录
位置也会错位了
[此贴子已经被作者于2022/3/3 22:30:07编辑过]
-- 发布时间：2022/3/3 22:29:00
--
那不是注释，代码编辑器颜色显示有问题而已。4楼我测试是没有问题的，请上传有问题的实例说明
-- 发布时间：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("系统_使用次数").AddNewr("手机号") = e.PlainText
这个代码没有反应 下面是js内容截图
此主题相关图片如下：企业微信截图_20220303232245.png
[此贴子已经被作者于2022/3/3 23:48:50编辑过]
-- 发布时间：2022/3/4 8:30:00
--
请重新上传有问题的实例说明问题
-- 发布时间：2022/3/4 13:34:00
--
实例
包含了js源码 内部函数
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:手机通讯录.foxdb |
[此贴子已经被作者于2022/3/4 13:35:35编辑过]
-- 发布时间：2022/3/4 13:53:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:手机通讯录.zip |