Foxtable(狐表) → 用户栏目 → 专家坐堂 → Weui 中page到底部时,可以实现拉动更新吗?


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

主题：Weui 中page到底部时,可以实现拉动更新吗?
帅哥，在线噢！
ap9709130
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1471 积分：11467 威望：0 精华：0 注册：2013/11/24 22:10:00 		Weui 中page到底部时,可以实现拉动更新吗?  发帖心情 Post By：2020/4/25 15:31:00 [只看该作者]

 老师

   现在做一个企业号的查询. 我是用TabBar 分开两个page,想实现到了page 底部可以更新数据 ,代码如下:
 
Dim ddzb As DataTable
Dim wb As New WeUI
wb.Title = "销售订单查询"
cmd.CommandText = sql 语句
ddzb = cmd.ExecuteReader()
If ddzb.datarows.Count > 0 Then
    With wb.AddTabBar("", "tb1", 1)
        .AddPage("page1","销售订单明细")
        .AddPage("page2","销售订单条件")
    End With
    With wb.AddPanelGroup("page1","pg2","订单明细列表")
        For Each pr As DataRow In ddzb.datarows
            Dim pt As String = "客户名称:" & pr("客户名称") &""
            Dim txt As String = "编号: " & pr("_Identify") & ";日期:" & pr("送货日期") & ";业务:" & pr("业务员") & ";方式:" & pr("送货方式") & ""
        Next
    End With
    wb.AppendHTML("<script src='/hito/ssdd.js'></script>") '引入脚本文件
    wb.AppendHTML("<script>window.</script>")
    e.WriteString(wb.Build)
End If


Js 代码如下:


//获取滚动条当前的位置
function getScrollTop() {
var scrollTop = 0;
if (document.documentElement && document.documentElement.scrollTop) {
scrollTop = document.documentElement.scrollTop;
}
else if (document.body) {
scrollTop = document.body.scrollTop;
}
return scrollTop;
}

//获取当前可是范围的高度
function getClientHeight() {
var clientHeight = 0;
if (document.body.clientHeight && document.documentElement.clientHeight) {
clientHeight = Math.min(document.body.clientHeight, document.documentElement.clientHeight);
}
else {
clientHeight = Math.max(document.body.clientHeight, document.documentElement.clientHeight);
}
return clientHeight;
}

//获取文档完整的高度
function getScrollHeight() {
return Math.max(document.body.scrollHeight, document.documentElement.scrollHeight);
} 

function scr() {
    If (getScrollTop() + getClientHeight() == getScrollHeight()) {
        alert("到达底部");
    }      
}
 回到顶部
帅哥，在线噢！
ap9709130
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1471 积分：11467 威望：0 精华：0 注册：2013/11/24 22:10:00 		  发帖心情 Post By：2020/4/25 15:32:00 [只看该作者]

 好像事件没有反应.

 回到顶部
帅哥，在线噢！
ap9709130
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1471 积分：11467 威望：0 精华：0 注册：2013/11/24 22:10:00 		  发帖心情 Post By：2020/4/26 10:08:00 [只看该作者]

 老师

网上的很多资料说: 这个问题是应为weiUI的滚动加载事件触发的前提条件是滚动条距离底部多少才会触发，因此你需要在jsp界面的滚动绑定事件的div上加个滚动条.

如何用fox 代码,给相应的div 加上个滚动条?

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


加好友 发短信
等级：超级版主 帖子：111430 积分：567226 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/4/26 11:17:00 [只看该作者]

自动生成的div不好控制，自己添加一个div

Select Case e.Path
    Case "table.htm"
        Dim wb As New WeUI
        wb.InsertHTML("","<div id='div1' style='overflow-x:auto;width:100%'>")
        With wb.AddTable("","Table1")
            .Attribute = "style='width:1000px'"
            .head.AddRow("部门","姓名","年龄","电话","地址") '表头
            .body.AddRow("技术部","张三","36","110","中国北京中国北京中国北京中国北京中国北京") '数据
            .body.AddRow("技术部","李四","38","110","中国上海")
            .body.AddRow("技术部","王五","39","110","中国深圳")
            .body.AddRow("生产部","赵六","39","110","中国深圳")
            .body.AddRow("生产部","刘七","39","110","中国深圳")
        End With
        wb.InsertHTML("","</div>")
        e.WriteString(wb.Build)
End Select
 回到顶部
帅哥，在线噢！
ap9709130
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1471 积分：11467 威望：0 精华：0 注册：2013/11/24 22:10:00 		  发帖心情 Post By：2020/5/5 16:40:00 [只看该作者]

 有点蓝老师

     代码没有问题,但为什么事件还是不起作用.到了底部拉动也没有反应? 哪里有问题吗?

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


加好友 发短信
等级：超级版主 帖子：111430 积分：567226 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/5/5 17:33:00 [只看该作者]

我也不是很懂，网上大把这种现成的组件，建议找个来用

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06250 秒, 4 次数据查询