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


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

主题:通话记录

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


加好友 发短信
等级:九尾狐 帖子:2483 积分:22954 威望: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和姓名和次数

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


加好友 发短信
等级:九尾狐 帖子:2483 积分:22954 威望: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编辑过]

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


加好友 发短信
等级:九尾狐 帖子:2483 积分:22954 威望: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编辑过]

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


加好友 发短信
等级:九尾狐 帖子:2483 积分:22954 威望: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编辑过]

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


加好友 发短信
等级:九尾狐 帖子:2483 积分:22954 威望:0 精华:0 注册:2011/3/29 17:14:00
  发帖心情 Post By:2022/3/4 13:34:00 [显示全部帖子]

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

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


加好友 发短信
等级:九尾狐 帖子:2483 积分:22954 威望:0 精华:0 注册:2011/3/29 17:14:00
  发帖心情 Post By:2022/3/4 14:17:00 [显示全部帖子]

 老师您是怎么测试的,我还是没有数据互动反应
我发布了 在手机上测试的
链接在下面老师您看卡看

以下内容是专门发给有点蓝浏览


[此贴子已经被作者于2022/3/4 14:28:57编辑过]

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


加好友 发短信
等级:九尾狐 帖子:2483 积分:22954 威望:0 精华:0 注册:2011/3/29 17:14:00
  发帖心情 Post By:2022/3/4 15:47:00 [显示全部帖子]

文件是存在的


图片点击可在新窗口打开查看此主题相关图片如下:企业微信截图_20220304154645.png
图片点击可在新窗口打开查看
 js文件在控制台可以看到
有个貌似错误提示,
图片点击可在新窗口打开查看此主题相关图片如下:企业微信截图_20220304154534.png
图片点击可在新窗口打开查看


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

[此贴子已经被作者于2022/3/4 16:03:18编辑过]

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


加好友 发短信
等级:九尾狐 帖子:2483 积分:22954 威望:0 精华:0 注册:2011/3/29 17:14:00
  发帖心情 Post By:2022/3/4 23:39:00 [显示全部帖子]

高级开发帮助里面是单独的动态 
如何表格动态输入指定选项内容
图片点击可在新窗口打开查看此主题相关图片如下:企业微信截图_20220304233750.png
图片点击可在新窗口打开查看
比如 状态列 有三个下拉选项(通过\等待\拒绝)供给客户选择 并将选择提交到后台保存
[此贴子已经被作者于2022/3/4 23:41:02编辑过]

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


加好友 发短信
等级:九尾狐 帖子:2483 积分:22954 威望:0 精华:0 注册:2011/3/29 17:14:00
  发帖心情 Post By:2022/3/5 14:35:00 [显示全部帖子]

 <select>
  <option value="volvo">Volvo</option>
  <option value="saab">Saab</option>
  <option value="opel">Opel</option>
  <option value="audi">Audi</option>
</select>

上面的代码怎么结合到表格中,作为多选,然后怎么反馈给服务器接受修改

With .Body.AddRow(cnt,r("用户姓名"),r("单元房号"),"<a href='tel:" & r("用户手机") & "' >"  & "拨号联系</a>","<a href='sms:" & r("用户手机") & "' >"  & "发短信</a>" )

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


加好友 发短信
等级:九尾狐 帖子:2483 积分:22954 威望:0 精华:0 注册:2011/3/29 17:14:00
  发帖心情 Post By:2022/3/5 22:24:00 [显示全部帖子]

 
以下内容是专门发给有点蓝浏览


With .Body.AddRow(cnt,r("用户姓名"),r("单元房号"),"<a href='tel:" & r("用户手机") & "' >"  & "拨号联系</a>","<a href='sms:" & r("用户手机") & "' >"  & "发短信</a>","<select><option value=""volvo1"">Volvo1</option> <option value=""volvo2"">Volvo3</option><option value=""volvo3"">Volvo3</option></select>" )

标签么有下拉效果,老师看看哪里不对哦

 回到顶部
总数 13 1 2 下一页