[求助]加载行 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]加载行

共有3907人关注过本帖树形打印复制链接主题：[求助]加载行

liujywwy

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：633 积分：4034 威望：0 精华：0 注册：2014/6/23 10:27:00

[求助]加载行 发帖心情

Post By：2014/8/19 16:41:00 [只看该作者]

按照说明书，在项目事件AfterOpenProject中设置代码如下:

With DataTables("需求明显表")
    .LoadFilter = ""
    .LoadTop = 25
    .LoadPage = 0
    .Load()
End With

但这样加载后，就没有按照e.DataRow("技术支持邮箱") = User.name，就是只加载技术支持邮箱列的值和登录的用户名一样的行。

但现在是把所有行都加载了。肯定和.LoadFilter = "" 有关，请问怎么改？

Bin

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/8/19 16:45:00 [只看该作者]

LoadFilter ="技术支持邮箱='" & User.name & "'"

liujywwy

小大 3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：633 积分：4034 威望：0 精华：0 注册：2014/6/23 10:27:00

Post By：2014/8/19 17:05:00 [只看该作者]

需求明细表我明明指定了按照需求编号倒序排列（Tables("需求明细表").Sort = "需求编号 DESC"），怎么没有执行。

afteropenpriject代码如下:

Tables("临时版本跟踪表").Filter = "状态 = 'Confirming' or 状态 = 'Bound' or 状态 is null"
Tables("需求主表").Filter = "审核通过 = False And 审核不通过 = False"
Tables("临时版本跟踪表").Sort = "需求编号 DESC"
Tables("需求明细表").Sort = "需求编号 DESC"

With DataTables("需求明细表")
    .LoadFilter = "技术支持邮箱='" & User.name & "'"
    .LoadTop = 25
    .LoadPage = 0
    .Load()
End With

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/8/19 17:07:00 [只看该作者]

Tables("临时版本跟踪表").Filter = "状态 = 'Confirming' or 状态 = 'Bound' or 状态 is null"
Tables("需求主表").Filter = "审核通过 = False And 审核不通过 = False"

With DataTables("需求明细表")
    .LoadFilter = "技术支持邮箱='" & User.name & "'"
    .LoadTop = 25
    .LoadPage = 0
    .Load()
End With

Tables("临时版本跟踪表").Sort = "需求编号 DESC"
Tables("需求明细表").Sort = "需求编号 DESC"

liujywwy

小大 5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：633 积分：4034 威望：0 精华：0 注册：2014/6/23 10:27:00

Post By：2014/8/19 17:21:00 [只看该作者]

按钮“第一页”代码如下:

With DataTables("需求明细表")
     If .LoadPage <> 0 Then
        .LoadTop = 25
        .LoadPage = 0
        .Load()
     End If
End With

按钮“最末页”代码如下:

With DataTables("需求明细表")
     If .LoadPage < .TotalPages - 1 Then
        .LoadPage = .TotalPages - 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 = .LoadPage + 1
        .Load()
     End If
End With

打开项目后是按照需求编号倒序排列。可是为什么点击了上面4个按钮，数据好像都乱了呢。

有点甜

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/8/19 17:22:00 [只看该作者]

加载完以后，要重新排序一下。

Tables("需求明细表").Sort = "需求编号 DESC"

liujywwy

小大 7楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：633 积分：4034 威望：0 精华：0 注册：2014/6/23 10:27:00

Post By：2014/8/19 17:33:00 [只看该作者]

以下是引用有点甜在2014-8-19 17:22:00的发言：

加载完以后，要重新排序一下。

Tables("需求明细表").Sort = "需求编号 DESC"

afteropenpriject代码已经改为下面的了，是加载完重新排列。

Tables("临时版本跟踪表").Filter = "状态 = 'Confirming' or 状态 = 'Bound' or 状态 is null"
Tables("需求主表").Filter = "审核通过 = False And 审核不通过 = False"

With DataTables("需求明细表")
    .LoadFilter = "技术支持邮箱='" & User.name & "'"
    .LoadTop = 25
    .LoadPage = 0
    .Load()
End With
Tables("临时版本跟踪表").Sort = "需求编号 DESC"
Tables("需求明细表").Sort = "需求编号 DESC"

你的意思是不是在第一页的按钮click改为

With DataTables("需求明细表")
     If .LoadPage <> 0 Then
        .LoadTop = 25
        .LoadPage = 0
        .Load()
     End If
End With
Tables("需求明细表").Sort = "需求编号 DESC"

其他按钮的代码也加入Tables("需求明细表").Sort = "需求编号 DESC"。

可是效果也不对啊。好像数据还是乱的。