以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]加载行  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=55585)
--  作者：liujywwy
--  发布时间：2014/8/19 16:41:00
--  [求助]加载行

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

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

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

但现在是把所有行都加载了。肯定和.LoadFilter = "" 有关，请问怎么改？
--  作者：Bin
--  发布时间：2014/8/19 16:45:00
--  
LoadFilter ="技术支持邮箱=\'" &  User.name & "\'"
--  作者：liujywwy
--  发布时间：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
--  作者：有点甜
--  发布时间：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
--  发布时间：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个按钮，数据好像都乱了呢。
--  作者：有点甜
--  发布时间：2014/8/19 17:22:00
--  

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

 

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

 
--  作者：liujywwy
--  发布时间：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"。

可是效果也不对啊。好像数据还是乱的。
--  作者：有点甜
--  发布时间：2014/8/19 17:36:00
--  

 

不可能是乱的，例子发上来看。
--  作者：liujywwy
--  发布时间：2014/8/19 17:40:00
--  
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:临时版本跟踪系统26.foxdb
--  作者：有点甜
--  发布时间：2014/8/19 17:51:00
--  

 我测试了一下，你在代码加入一句代码

 

 .LoadOver = "需求编号"