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

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

不行

楼主只是想当前记录显示在Grid的第一行上，那不是表的第一行，而原来“编辑”的记录当时也不是Grid的第一行上。实际上这是要把高亮光条移到顶行、但又不能改变记录的要求。这种东西我实现过，不是你们想的那样做的。

收到的鲜花

• shenkj001 于 2015-06-16 17:53 送鲜花  3朵  

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

仔细琢磨14楼就知道为什么不行，自己操作一下也知道。

用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

非常感谢吹水佬,要的不是这个效果.只是想把修改过的记录提到第一个,原来它下面的记录不变.主要方便接着找它下面的其它记录(不是挨着它的)

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

SELECT 项目 FROM 表1 ORDER BY 修改时间 DESC INTO CURSOR 列表2
不是说临时表，不能修改的吗？你这个好像可以修改？为什么啊？我刚测试了，你这个是可以。

TonyDeng版主理解的应该是我的意图，请大家多费心帮一下，谢谢！

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