Foxtable(狐表) → 用户栏目 → 专家坐堂 → 基于panel做页面到底部自动加载


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

主题：基于panel做页面到底部自动加载
帅哥哟，离线，有人找我吗？
zhangjian222200
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1533 积分：10818 威望：0 精华：0 注册：2016/9/12 11:18:00 		  发帖心情 Post By：2017/3/30 14:24:00 [显示全部帖子]

移动文档，接收完整页面，是靠表单，接收数据的

下面的例子，在panel页面前面，加上wb.AddForm("","form1","accept.htm")，用于接收插入页面信息，可以吗？
Select Case e.Path
    Case "test.htm"
        Dim wb As New weui '定义一个基于weui框架的网页生成器
        wb.AddForm("","form1","accept.htm")
        Dim txt As String = "24岁,未婚,连云港,有红包"
        With wb.AddPanelGroup("","pg1","TA邀请我列表")
            With .Add("pn3","邀请编号:2017032233001",txt,"./images/m.png") '带子链接
                .AddFoot("已发起:3天18时")
                .AddFoot("|状态:尚未决定","http://www.foxtable.com")
            End With
        End With
        e.WriteString(wb.Build) '生成网页
End Select
[此贴子已经被作者于2017/3/30 14:28:30编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
zhangjian222200
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1533 积分：10818 威望：0 精华：0 注册：2016/9/12 11:18:00 		  发帖心情 Post By：2017/3/31 16:51:00 [显示全部帖子]

Dim e As RequestEventArgs = args(0)                             'TA邀请我
Select Case e.Path
    Case "per_tayaoqing.htm"
        Dim wb As New WeUI
        wb.AppendHTML("<script src='./lib/jquery-1.9.1.js'></script>") '引入脚本文件
        With wb.AddTabBar("", "tb1", 1)                            '使用TabBar,增加4个按钮(注:页面可以增加,但不考虑)
            .AddButton("bt1","首页","./images/a.png","http://www.foxtable.com")
            .AddButton("bt2","记录","./images/b.png","http://www.foxtable.com")
            .AddButton("bt3","设置","./images/c.png","http://www.foxtable.com")
            .AddButton("bt4","我的","./images/d.png","/personal.htm")
            .Attribute = "style='height:55px'"
        End With
        '.Add("pn1","编号:20170322001",txt,"./images/a.png","http://www.foxtable.com") '超链接(单行增加panel,示例)
        With wb.AddPanelGroup("","pg1","TA邀请我列表")
            '获得用户名,获得被报名表具体行,将同一行报名人信息填入
            Dim username As String = e.cookies("isj") '从cookie取用户名
            Dim pic(9) As String '定义各个panel,展示照
            Dim bianh(9) As String '定义各个panel,邀请编号
            
            Dim nianl(9) As String '定义各个panel,字符串,年龄
            Dim huny(9) As String '定义各个panel,字符串,婚姻
            Dim hongb(9) As String '定义各个panel,字符串,有无红包
            Dim qux(9) As String '定义各个panel,字符串,所在区县
            Dim shi(9) As String '定义各个panel,字符串,所在市
            Dim sheng(9) As String '定义各个panel,字符串,所在省
            Dim txt(9) As String '定义各个panel,中间行字符串
            Dim tians(9) As String '定义各个panel,发起天数
            Dim zhuangt(9) As String '定义各个panel,状态
            
            Dim yix(9) As String '定义各个panel,查找异性
            
            Dim dr As DataRow = DataTables("会员资料").sqlFind("手机 = '" & username & "'")
            Dim dr1 As DataRow
            Dim drs As List(of DataRow)
            If dr IsNot Nothing Then
                If dr("性别") = "男" Then
                    drs = DataTables("女生发起").sqlSelect("[男_手机] = '" & username & "'","发起_日期 DESC")  '从订单表找,个人订单集合 
                    msgbox("男1")
                Else If dr("性别") = "女" Then
                    drs = DataTables("男生发起").sqlSelect("[女_手机] = '" & username & "'","发起_日期 DESC")  '从订单表找,个人订单集合
                    msgbox("女1")
                Else If dr("性别") = "" Then
                    msgbox("会员性别为空!")
                Else If dr("性别") <> "男" OrElse dr("性别") <> "女" Then
                    msgbox("会员性别错误填写!")
                End If
            Else
                msgbox("未找到您的会员账号!")
            End If
            
            Dim cis As String = 9 '定义被报名次数
            If drs.count < 9 Then
                cis = drs.count - 1
                    msgbox("2")
                    msgbox(drs.count)              '这里执行了，但是drs.count=0，要查找的行是存在的，找人执行的是上述粉色代码
            End If
            For i As Integer = 0 To cis  '二维数组的第0维
                If drs.count > 0 Then '找出异性报名的手机号
                    If dr("性别") = "男" Then
                        yix(i) = drs(i)("女_手机")
                        dr = DataTables("会员资料").sqlFind("手机 = '" & yix(i) & "'")
                        msgbox("男")
                    ElseIf dr("性别") = "女" Then
                        yix(i) = drs(i)("男_手机")
                        dr = DataTables("会员资料").sqlFind("手机 = '" & yix(i) & "'")
                        msgbox("女")
                    End If
                Else
                    msgbox("尚无异性报名!完善资料及靓照,TA将主动找到您!")
                End If
                If dr1 IsNot Nothing Then
                    pic(i) = dr1("展示照") '定义各个panel,展示照
                    bianh(i) = drs(i)("会员行为_发起编号") '定义各个panel,邀请编号
                    
                    nianl(i) = dr1("年龄") '定义各个panel,字符串,年龄
                    huny(i) = dr1("婚姻状况") '定义各个panel,字符串,婚姻
                    hongb(i) = drs(i)("红包情况") '定义各个panel,字符串,有无红包
                    qux(i) = dr1("所在区县") '定义各个panel,字符串,所在区县
                    shi(i) = dr1("所在市") '定义各个panel,字符串,所在市
                    sheng(i) = dr1("所在省") '定义各个panel,字符串,所在省
                    txt(i) = nianl(i) & "," & huny(i) & "," & hongb(i) & "," & qux(i) & "," & shi(i) & "," & sheng(i) '定义各个panel,中间行字符串 ’这里这样合并字符串，可以？
                    tians(i) = drs(i)("发起天数") '定义各个panel,发起天数
                    zhuangt(i) = drs(i)("邀请状态") '定义各个panel,状态
                Else
                    msgbox("未找到您的会员账号2!")
                End If
                
                With .Add("pn" & i,"邀请编号:" & bianh(i), " & txt(i) & ","./images/" & pic(i)) '带子链接
                    .AddFoot("已发起:" & tians(i))
                    .AddFoot("|状态:" & zhuangt(i),"http://www.foxtable.com")
                End With
                If i = cis AndAlso drs.count > 10 Then
                    e.AppendCookie("jiezhi",cis)    '将截至目前发送数量,保存到cookie
                End If
            Next
        End With
        wb.AppendHTML("<script src='./lib/ajaxform_tayaoqing.js'></script>") '引入脚本文件
        e.WriteString(wb.Build) '生成网页
End Select
[此贴子已经被作者于2017/3/31 16:52:17编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
zhangjian222200
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1533 积分：10818 威望：0 精华：0 注册：2016/9/12 11:18:00 		  发帖心情 Post By：2017/3/31 19:16:00 [显示全部帖子]

29楼，2种情况都检查了，还是为0，请帮看看
msgbox("女1")，执行显示"女1"
msgbox(drs.count)，执行显示“0”
测试账号：18961305239 密码：222222
1.sqlfind的行存在，保存了，后台表、内容都存在
2.查询条件列名及后台数据表列名，也能对上

项目文件：
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:langwo(2017-3-31).rar
web文件夹：
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:web(2017-3-31).rar


[此贴子已经被作者于2017/3/31 19:36:25编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
zhangjian222200
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1533 积分：10818 威望：0 精华：0 注册：2016/9/12 11:18:00 		  发帖心情 Post By：2017/3/31 20:59:00 [显示全部帖子]

30楼在发帖时，已做了31楼的工作，只是分开显示的，msgbox("男1"）及 msgbox(drs.count)显示为0 

但是涉及后台的表都有，后台表的名字、列名也是对的，查询的行也存在，但是drs.count还是为0，麻烦瞧瞧！

项目文件在30楼
[此贴子已经被作者于2017/3/31 21:05:35编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
zhangjian222200
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1533 积分：10818 威望：0 精华：0 注册：2016/9/12 11:18:00 		  发帖心情 Post By：2017/3/31 22:14:00 [显示全部帖子]

后台表、数据，没有变动的情况下
我做了个窗口，添加一个按钮，按钮click时间代码如下：
（与30楼文件查找方法相同：从后台“男生发起表”，找“女_手机”为“18961305239”的行）

Dim drs As List(of DataRow) = DataTables("男生发起").SQLSelect("[女_手机] = '18961305239'") 
msgbox("女人数=" & drs.count)

运行提示15人，截图如下：

图片点击可在新窗口打开查看此主题相关图片如下：qq图片20170331221140000000000.png
图片点击可在新窗口打开查看

说明找到人了，记录存在，但是在移动版中，就找不到，如下图：

图片点击可在新窗口打开查看此主题相关图片如下：qq图片2017033122174411111111.png
图片点击可在新窗口打开查看

难道是bug？项目测试文件及测试账号密码在30楼

[此贴子已经被作者于2017/3/31 22:29:02编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
zhangjian222200
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1533 积分：10818 威望：0 精华：0 注册：2016/9/12 11:18:00 		  发帖心情 Post By：2017/3/31 23:32:00 [显示全部帖子]

后台表、数据，没有变动的情况下
直接在移动版页面，将排序去掉，再测试，得到正确的结果（加或不加Trim()，都得到正确结果），见图
修改见粉色部分
但是加上排序即为0，怎么回事？
            If dr IsNot Nothing Then
                If dr("性别") = "男" Then
                    msgbox(dr("性别"))
                    drs = DataTables("女生发起").sqlSelect("[男_手机] = '" & username.Trim() & "'","[发起_日期] DESC")  '从订单表找,个人订单集合 
                    msgbox("男手机=" & username)
                    msgbox("男人数=" & drs.count)
                Else If dr("性别") = "女" Then
                    msgbox(dr("性别"))
                    drs = DataTables("男生发起").SQLSelect("[女_手机] = '" & username.Trim() & "'") ',"[发起_日期] DESC")  '从订单表找,个人订单集合       
                    msgbox("女手机=" & username & "女人数=" & drs.count)
                Else If dr("性别") = "" Then
                    msgbox("会员性别为空!")
                Else If dr("性别") <> "男" OrElse dr("性别") <> "女" Then
                    msgbox("会员性别错误填写!")
                End If
            Else
                msgbox("未找到您的会员账号!")
            End If

图片点击可在新窗口打开查看此主题相关图片如下：qq图片201703312330555555555555555.png
图片点击可在新窗口打开查看


[此贴子已经被作者于2017/4/1 8:11:18编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
zhangjian222200
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1533 积分：10818 威望：0 精华：0 注册：2016/9/12 11:18:00 		  发帖心情 Post By：2017/4/1 10:59:00 [显示全部帖子]

插入页面成功

插入新页面前，在页面底部显示“正在加载”，怎么做？
 回到顶部
帅哥哟，离线，有人找我吗？
zhangjian222200
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1533 积分：10818 威望：0 精华：0 注册：2016/9/12 11:18:00 		  发帖心情 Post By：2017/4/1 14:44:00 [显示全部帖子]

根据5楼的js例子，下面粉色部分是我自己添加，用于显示左右滚动，这样可以？还请指导

$(document).ready(function() {
            $(window).scroll(function() {
                //$(document).scrollTop() 获取垂直滚动的距离
                //$(document).scrollLeft() 这是获取水平滚动条的距离

                if ($(document).scrollTop() <= 0) {
                    alert("滚动条已经到达顶部为0");
                }

                if ($(document).scrollTop() >= $(document).height() - $(window).height()) {
                    alert("滚动条已经到达底部为" + $(document).scrollTop());
                }

                if ($(document).scrollLeft() <= 0) {
                    alert("滚动条已经到达左面为0");
                }

                if ($(document).scrollLeft() >= $(document).Width() - $(window).Width()) {
                    alert("滚动条已经到达右面为" + $(document).scrollleft());
                }
            });
        });
 回到顶部
帅哥哟，离线，有人找我吗？
zhangjian222200
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1533 积分：10818 威望：0 精华：0 注册：2016/9/12 11:18:00 		  发帖心情 Post By：2017/4/2 22:53:00 [显示全部帖子]

意图：每次点击“插入页面”按钮，插入的页面，显示在“插入页面”按钮上面，这样，新页面将总是位于“插入页面”按钮上方

问题：无论怎么调整代码位置，“插入页面”按钮，总是显示到整个页面的顶部，怎么调整？
截图如下：

图片点击可在新窗口打开查看此主题相关图片如下：qq图片201704031737177777.png
图片点击可在新窗口打开查看

代码如下：（此代码可以正常插入页面）
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:1233123dd1233.txt
js代码如下：
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:ajaxform_tongji.txt


[此贴子已经被作者于2017/4/3 18:24:41编辑过]
 回到顶部
总数 20 上一页 1 2
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.08398 秒, 7 次数据查询