Foxtable(狐表) → 用户栏目 → 专家坐堂 → 翻页条件


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

主题：翻页条件
帅哥哟，离线，有人找我吗？
ycs5801
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1101 积分：7840 威望：0 精华：0 注册：2009/6/24 9:44:00 		翻页条件  发帖心情 Post By：2025/1/3 10:48:00 [显示全部帖子]

2、然后在项目事件AfterOpenProject中设置代码，使得打开项目后，自动加载第一页：

With DataTables("订单")
    .LoadFilter = "" '一定要清除加载条件
    .LoadTop = 20
    .LoadPage = 0
    .Load()
End With

提示：由于已经在第一步设置了加载条件"[_Identify] Is Null"，所以必须在AfterOpenProject事件中清除此条件，否则不会加载任何数据。


各按钮的代码如下:

按钮 代码
第一页 With DataTables("订单")
    If .LoadPage <> 0 Then
       .LoadTop = 20
       .LoadPage = 0
       .Load()
    End If
End With
下一页 With DataTables("订单")
    If .LoadPage < .TotalPages - 1 Then
        .LoadPage = .LoadPage + 1
        .Load()
    End If
End With
上一页 With DataTables("订单")
    If .LoadPage > 0 Then
        .LoadPage = .LoadPage - 1
        .Load()
    End If
End With
最末页 With DataTables("订单")
    If .LoadPage < .TotalPages - 1 Then
        .LoadPage = .TotalPages - 1
        .Load()
    End If
End With



这个分页的示例，如果我需要临时改变筛选条件，比如增加性别列为“男”，这时候需要在所有翻页代码中加入 .LoadFilter = ""条件吗
 回到顶部
帅哥哟，离线，有人找我吗？
ycs5801
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1101 积分：7840 威望：0 精华：0 注册：2009/6/24 9:44:00 		  发帖心情 Post By：2025/1/4 20:50:00 [显示全部帖子]

现在想在一个窗口中不断地切换筛选条件，比如以性别筛选，然后又改成以民族，然后可能又改成年龄，等等这样的不断变化的条件，这种一般应该怎样 设计合理一些？比如是在菜单栏做几个不同的菜单，点击哪个就会按哪个条件筛选？还是做成按钮方式，多个按钮在窗口上，点哪个按钮就切换哪个条件，比较方便快捷合理的方式有哪种？有没有实例可供参考？

 回到顶部
帅哥哟，离线，有人找我吗？
ycs5801
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1101 积分：7840 威望：0 精华：0 注册：2009/6/24 9:44:00 		  发帖心情 Post By：2025/1/10 22:42:00 [显示全部帖子]

我现在先筛选数据 ，然后再进行翻页，下一页按钮无效，代码如下：
筛选按钮代码：
Dim Filter As String
With e.Form.Controls("布控原因")
    If .Value IsNot Nothing Then
        Filter &= "布控原因 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("检查类别")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = filter & "(进检类别 = '" & .Value & "' or 出检类别='" & .Value & "')"
    End If
End With

If Filter > "" Then
    With Tables("检疫资料").DataTable
        .LoadFilter =  Filter
        .LoadOrder = "录入时间 Desc"
        .Load()
    End  With
    Tables("检疫资料").Sort = "录入时间 DESC"
End If

下一页代码：
With DataTables("检疫资料")
    If .LoadPage < .TotalPages - 1 Then
        .LoadPage = .LoadPage + 1
        .Load()
    End If
End With
 回到顶部
帅哥哟，离线，有人找我吗？
ycs5801
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1101 积分：7840 威望：0 精华：0 注册：2009/6/24 9:44:00 		  发帖心情 Post By：2025/1/11 10:49:00 [显示全部帖子]

查询按钮：
If Filter > "" Then
    With Tables("检疫资料").DataTable
        .LoadFilter =  Filter
        .LoadOrder = "录入时间 Desc"
        .LoadTop=10
        .Load()
    End  With
    Tables("检疫资料").Sort = "录入时间 DESC"

现在只加载很少一部分数据，怎样在每次点查询的时候，好像是在我上次筛选后的结果中筛选的数据。
 回到顶部
帅哥哟，离线，有人找我吗？
ycs5801
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1101 积分：7840 威望：0 精华：0 注册：2009/6/24 9:44:00 		  发帖心情 Post By：2025/1/11 13:48:00 [显示全部帖子]

假如我表中有100条数据，第一次根据条件筛选，筛选出0条数据，第二次改变条件，即使有这个数据，也筛选不出来了

 回到顶部
帅哥哟，离线，有人找我吗？
ycs5801
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1101 积分：7840 威望：0 精华：0 注册：2009/6/24 9:44:00 		  发帖心情 Post By：2025/1/11 14:22:00 [显示全部帖子]

查询按钮代码：
Dim Filter As String
With e.Form.Controls("布控原因")
    If .Value IsNot Nothing Then
        Filter &= "布控原因 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("检查类别")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = filter & "(进检类别 = '" & .Value & "' or 出检类别='" & .Value & "')"
    End If
End With
With e.Form.Controls("船名")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "中文船名 like '%" & .Value & "%'"
    End If
End With
If e.Form.Controls("是否布控").checked = True Then
    If Filter > "" Then
        Filter = Filter & " And "
    End If
    Filter = filter & "是否布控=1"
End If
If e.Form.Controls("是否核酸").checked = True Then
    If Filter > "" Then
        Filter = Filter & " And "
    End If
    Filter = filter & "是否核酸抽查=1"
End If

With e.Form.Controls("startdate")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "录入时间 >= '" & .Value & "'"
    End If
End With
With e.Form.Controls("enddate")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "录入时间 <= '" & .Value & "'"
    End If
End With


With DataTables("检疫资料")
  '  If Filter > "" Then
        .LoadFilter = Filter
  '  End If
    .LoadOrder = "录入时间 Desc"
    .LoadTop = 10
    .Load()
End With

上一页：
With DataTables("检疫资料")
    If .LoadPage > 0 Then
        .LoadPage = .LoadPage - 1
        .Load()
    End If
End With
下一页：
With DataTables("检疫资料")
    If .LoadPage < .TotalPages - 1 Then
        .LoadPage = .LoadPage + 1
       
        .Load()
    End If
End With
 回到顶部
帅哥哟，离线，有人找我吗？
ycs5801
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1101 积分：7840 威望：0 精华：0 注册：2009/6/24 9:44:00 		附件  发帖心情 Post By：2025/1/11 14:57:00 [显示全部帖子]

以下内容是专门发给有点蓝浏览
 回到顶部
帅哥哟，离线，有人找我吗？
ycs5801
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1101 积分：7840 威望：0 精华：0 注册：2009/6/24 9:44:00 		  发帖心情 Post By：2025/1/11 15:44:00 [显示全部帖子]

检疫资料表中，窗口管理中的主窗口，预览之后输入不同选项测试。

 回到顶部
帅哥哟，离线，有人找我吗？
ycs5801
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1101 积分：7840 威望：0 精华：0 注册：2009/6/24 9:44:00 		弄好了  发帖心情 Post By：2025/1/11 19:05:00 [显示全部帖子]

此楼空白
[此贴子已经被作者于2025/1/11 20:23:28编辑过]
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06836 秒, 6 次数据查询