| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2818 人关注过本帖
标题:刚修改过的记录刷新后显示列表框里的最上面(第一个)
只看楼主 加入收藏
shenkj001
Rank: 3Rank: 3
来 自:河南安阳
等 级:论坛游侠
威 望:9
帖 子:340
专家分:147
注 册:2005-5-23
收藏
得分:0 
感谢8楼,加时间能排在所有记录的前面,但不能显示在当前窗口列表框的第一行。

shenkj001@
2015-05-28 12:24
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
以下是引用shenkj001在2015-5-28 12:24:58的发言:

感谢8楼,加时间能排在所有记录的前面,但不能显示在当前窗口列表框的第一行。

将修改后的记录及其它记录重新加载到列表框中

坚守VFP最后的阵地
2015-05-28 12:37
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:0 
回复 12楼 sdta
不行

授人以渔,不授人以鱼。
2015-05-28 12:39
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:0 
楼主只是想当前记录显示在Grid的第一行上,那不是表的第一行,而原来“编辑”的记录当时也不是Grid的第一行上。实际上这是要把高亮光条移到顶行、但又不能改变记录的要求。这种东西我实现过,不是你们想的那样做的。
收到的鲜花
  • shenkj0012015-06-16 17:53 送鲜花  3朵  

授人以渔,不授人以鱼。
2015-05-28 12:43
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
以下是引用TonyDeng在2015-5-28 12:39:45的发言:

不行

只要在第一条的位置有何不行

坚守VFP最后的阵地
2015-05-28 12:43
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:0 
仔细琢磨14楼就知道为什么不行,自己操作一下也知道。

授人以渔,不授人以鱼。
2015-05-28 12:44
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:451
帖 子:10607
专家分:43182
注 册:2014-5-20
收藏
得分:0 
用ListBox或Grid也可以
示例:看看是不是这种效果
程序代码:
SET CENTURY ON
SET DATE TO ANSI
SET MARK TO "/"
SET HOURS TO 24

CREATE CURSOR 表1 (项目 C(20), 修改时间 C(14))
INSERT INTO 表1 VALUES ("项目01", "")
INSERT INTO 表1 VALUES ("项目02", "")
INSERT INTO 表1 VALUES ("项目03", "")
INSERT INTO 表1 VALUES ("项目04", "")
INSERT INTO 表1 VALUES ("项目05", "")
INSERT INTO 表1 VALUES ("项目06", "")
INSERT INTO 表1 VALUES ("项目07", "")
INSERT INTO 表1 VALUES ("项目08", "")
INSERT INTO 表1 VALUES ("项目09", "")

of = CREATEOBJECT("_Form")
of.Show(1)
CLEAR ALL 
RETURN

DEFINE CLASS _Form AS Form
    Height=310
    Width=300
    ADD OBJECT List1 AS ListBox WITH Top=10,Left=10,Height=80,Width=280,RowSourceType=3,;
        RowSource = "SELECT 项目 FROM 表1 ORDER BY 修改时间 DESC INTO CURSOR 列表"
    ADD OBJECT Command1 AS CommandButton WITH Top=95,Left=10,Height=25,Caption="修改"
    ADD OBJECT Grid1 AS Grid WITH Top=130,Left=10,Height=140,Width=280,RowSourceType=1
    ADD OBJECT Command2 AS CommandButton WITH Top=275,Left=10,Height=25,Caption="修改"
    
    PROCEDURE Init
        thisform.List1.Requery
        SELECT 项目 FROM 表1 ORDER BY 修改时间 DESC INTO CURSOR 列表2
        thisform.Grid1.RecordSource="列表2"
    ENDPROC

    PROCEDURE Command1.Click
        SELECT 表1
        LOCATE FOR ALLTRIM(项目) == ALLTRIM(thisform.List1.Value)
        IF FOUND()
            REPLACE 修改时间 WITH DTOS(DATE())+STRTRAN(TIME(), ":", "")
            thisform.List1.Requery
            thisform.List1.ListIndex = 1
            thisform.Grid1.RecordSource=""
            SELECT 项目 FROM 表1 ORDER BY 修改时间 DESC INTO CURSOR 列表2
            thisform.Grid1.RecordSource="列表2"
        ENDIF
    ENDPROC
    
    PROCEDURE Command2.Click
        SELECT 表1
        LOCATE FOR ALLTRIM(项目) == ALLTRIM(ALLTRIM(列表2.项目))
        IF FOUND()
            REPLACE 修改时间 WITH DTOS(DATE())+STRTRAN(TIME(), ":", "")
            thisform.List1.Requery
            thisform.List1.ListIndex = 1
            thisform.Grid1.RecordSource=""
            SELECT 项目 FROM 表1 ORDER BY 修改时间 DESC INTO CURSOR 列表2
            thisform.Grid1.RecordSource="列表2"
        ENDIF
    ENDPROC
ENDDEFINE
2015-05-28 15:52
shenkj001
Rank: 3Rank: 3
来 自:河南安阳
等 级:论坛游侠
威 望:9
帖 子:340
专家分:147
注 册:2005-5-23
收藏
得分:0 
非常感谢吹水佬,要的不是这个效果.只是想把修改过的记录提到第一个,原来它下面的记录不变.主要方便接着找它下面的其它记录(不是挨着它的)

[ 本帖最后由 shenkj001 于 2015-5-28 18:41 编辑 ]

shenkj001@
2015-05-28 16:31
mywisdom88
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:191
帖 子:3147
专家分:8408
注 册:2015-3-25
收藏
得分:0 
SELECT 项目 FROM 表1 ORDER BY 修改时间 DESC INTO CURSOR 列表2
不是说临时表,不能修改的吗?你这个好像可以修改?为什么啊?我刚测试了,你这个是可以。
2015-05-28 16:55
shenkj001
Rank: 3Rank: 3
来 自:河南安阳
等 级:论坛游侠
威 望:9
帖 子:340
专家分:147
注 册:2005-5-23
收藏
得分:0 
TonyDeng版主理解的应该是我的意图,请大家多费心帮一下,谢谢!

[ 本帖最后由 shenkj001 于 2015-5-28 20:47 编辑 ]

shenkj001@
2015-05-28 20:34
快速回复:刚修改过的记录刷新后显示列表框里的最上面(第一个)
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.039105 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved