这段代码有点啰嗦：
    PROCEDURE Command1.Click
        FOR i = 1 TO thisform.List1.ListCount
            IF thisform.List1.Selected(i)
                thisform.List1.TopIndex = i
                EXIT
            ENDIF
        ENDFOR
    ENDPROC

可优化成：这样清爽多了。
    PROCEDURE Command1.Click
        thisform.List1.TopIndex = thisform.List1.ListIndex
    ENDPROC

收到的鲜花

• shenkj001 于 2015-05-30 13:30 送鲜花  3朵  

刚试了试，这个也好用。

你上面表格GRID,能不能简化??

这个示例是可以设置表中某条记录在GRID表格中某行显示。如果只要置顶显示，可以试试变换表格的高度。

thisform.List1.TopIndex = thisform.List1.ListIndex &&吹版有方

想再麻烦你一下，我在CLICK中先运行了一个自定义查错的方法程序，thisform.list1.TopIndex = thisform.list1.ListIndex不起作用了。

吹水佬你好！想再麻烦你一下，我在CLICK中先运行了一个自定义查错的方法程序，thisform.list1.TopIndex = thisform.list1.ListIndex不起作用了。





[ 本帖最后由 shenkj001 于 2015-6-2 22:05 编辑 ]

测试结果：TopIndex属性当RowSourceType属性为2、3、6时才有效，好象都与表有关。

用IF语句，如不运行以下代码

时RowSourceType=3
thisform.z_lb.TopIndex = thisform.z_lb.ListIndex 有效
一但运行

thisform.z_lb.TopIndex = thisform.z_lb.ListIndex就无效

我用下面程放在D盘序测试却能有效


[ 本帖最后由 shenkj001 于 2015-6-3 22:29 编辑 ]