刚试了试，这个也好用。

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

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





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

用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 编辑 ]

你好，现在问题找出来了，主要是表更新后又用了一次:thisForm.z_lb.RowSource="sele ..." 获取列表框刷新,可能改变了:thisform.z_lb.ListIndex，导至thisform.z_lb.TopIndex = thisform.z_lb.ListIndex无效。但如果不再次用:thisForm.z_lb.RowSource="sele ..."
虽然： thisform.z_lb.TopIndex = thisform.z_lb.ListIndex有效，但列表框数据看不到更新。不知该怎么解决？

你好，辛苦了！由 thisForm.z_lb.RowSource="sele ..." 改用thisform.List1.Requery刷新列表，解决置顶处理， 已达到了目的。再次感谢你的热心帮助！

[ 本帖最后由 shenkj001 于 2015-6-4 04:37 编辑 ]

怎么结贴？