Foxtable(狐表)用户栏目专家坐堂 → 拨打次数增增加


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

主题:拨打次数增增加

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


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

wb.AddPageTitle("","pageheader","我的客户","City-W客户管理")
With wb.AddTable("","Table1")
    .RowHead = 1 '左边第一列作为行头
    .Alternate = 3
    Dim nms() As String = {"用户姓名","楼盘","单元房号","客户等级","用户手机","户型" ,"状态"}
    .Head.AddRow(nms)
    For Each r As DataRow In DataTables("终端客户").sqlSelect("[业务经理] = '" & User.Name & "'", "", "日期 Desc")
        With .Body.AddRow(r("用户姓名"),r("楼盘"),r("单元房号"),r("客户等级"),"<a href='tel:" & r("用户手机") & "'>" & r("用户手机") & "</a>",r("户型"),r("状态"))

当拨打电话时   DataTables("终端客户") 的呼叫次数 +1

            '.AddCell(Format(r("日期"),"MM月dd日"))
        End With
    Next
End With

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


加好友 发短信
等级:超级版主 帖子:107783 积分:548260 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/8/22 20:52:00 [只看该作者]

 With .Body.AddRow(r("用户姓名"),r("楼盘"),r("单元房号"),r("客户等级"),"<a href='tel:" & r("用户手机") & "' onclick='xxjs函数(""" & r("用户手机") & """)'>>" & r("用户手机") & "</a>",r("户型"),r("状态"))

到js函数里提交到后台计算

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


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

js 怎么写呢 请教老师

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


加好友 发短信
等级:超级版主 帖子:107783 积分:548260 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/8/23 8:34:00 [只看该作者]

比如:http://www.foxtable.com/mobilehelp/topics/0108.htm

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


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

function getDate(){
    var result = sendAjaxText("getDate","accept.htm","",false);
    document.getElementById("p1").innerHTML="
今天日期:<br/>" + result;
}

function getUser(){
    var result = sendAjaxText("getUser","accept.htm","",false);
    var user=JSON.parse(result);
    result="
姓名:" + user.name + "<br/>" + "年龄:" + user.age
    document.getElementById("p1").innerHTML=result;
}


不知道怎么下手 没有写过  麻烦老师指导下  


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


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

function xxjs函数(n){
    var result = sendAjaxText(n,"计数页面.htm","",false);

}

Select Case e.Path
    Case "计数页面.htm"
msgbox(e.PlainText) 通过e.PlainText获取手机号,然后查表计数

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


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

还是不能计数 没搞明白
Select Case e.Path
    Case "计数页面.htm"   这是我原来的页面还是新的增加代码
msgbox(e.PlainText) 通过e.PlainText获取手机号,然后查表计数
 下载信息  [文件大小:   下载次数: ]
点击浏览该文件:新建文本文档.txt



此主题相关图片如下:企业微信截图_20210831195445.png
按此在新窗口浏览图片



[此贴子已经被作者于2021/8/31 20:00:38编辑过]

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


加好友 发短信
等级:超级版主 帖子:107783 积分:548260 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/8/31 20:21:00 [只看该作者]

建议网上先多学一些js的基础吧。另外起码多看看foxtable帮助,搞懂怎么使用js

先看看:http://www.foxtable.com/mobilehelp/topics/0061.htm



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


加好友 发短信
等级:超级版主 帖子:107783 积分:548260 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/8/31 20:26:00 [只看该作者]

Select Case e.Path
    Case "计数页面.htm"   新的增加代码,新增加一个页面专门用于计数处理

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


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

For Each r As DataRow In DataTables("终端客户").sqlSelect("[业务经理] = '" & User.Name & "'", "", "日期 Desc")
                With .Body.AddRow(r("用户姓名"),r("客户等级"),r("楼盘") & r("单元房号"),"<a href='tel:" & r("用户手机") & "' >>" & r("用户手机") & "</a>",r("互动次数"),r("状态"))
                    '.AddCell(Format(r("日期"),"MM月dd日"))
                    Select Case e.Path
                        Case "计数.htm"
                            Tables("终端客户").current("互动次数") = Tables("终端客户").current("互动次数")+1
                    End Select
                End With
            Next
        End With
        
        e.WriteString(wb.Build)

还是不计数

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

[此贴子已经被作者于2021/8/31 23:49:42编辑过]

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