以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  Weui 中page到底部时,可以实现拉动更新吗?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=149176)
--  作者：ap9709130
--  发布时间：2020/4/25 15:31:00
--  Weui 中page到底部时,可以实现拉动更新吗?
 老师

   现在做一个企业号的查询. 我是用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
--  发布时间：2020/4/25 15:32:00
--  
 好像事件没有反应.
--  作者：ap9709130
--  发布时间：2020/4/26 10:08:00
--  
 老师

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

如何用fox 代码,给相应的div 加上个滚动条?
--  作者：有点蓝
--  发布时间：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
--  发布时间：2020/5/5 16:40:00
--  
 有点蓝老师

     代码没有问题,但为什么事件还是不起作用.到了底部拉动也没有反应? 哪里有问题吗?
--  作者：有点蓝
--  发布时间：2020/5/5 17:33:00
--  
我也不是很懂，网上大把这种现成的组件，建议找个来用