VFP 列表 控件 单选切换到多选状态下设置 默认选中 行

[zhaihs]

表单里有 一个VFP 列表 控件
名称为 .List考生名单，对应的数据表为 BMTEST
当 List考生名单.MultiSelect = 0 时
.List考生名单.VALUE=BMTEST.考生号
.List考生名单.SETFOCUS
对应行了就会变成蓝色选中状态

可是当在一个按钮里设置 List考生名单.MultiSelect = 1 时
LIST考生名单里本来已经选中的行 就会变成一个空心的 虚线选中框。
这样，界面上不好看，而且也影响数据处理。

我现在的办法是在多选状态时，使用如下代码强制选中对应行
FOR lnI = 1 TO .List考生名单.ListCount
IF ALLTRIM(.List考生名单.List(lnI))=BMTEST.考生号 && 定位考生
.List考生名单.Selected()=.T. && 考生已被选中
ELSE
.List考生名单.Selected(lnI)=.F. && 考生没被选中
ENDIF
ENDFOR
但是这个办法在数据量大的时候反映慢，比较卡。
请教高手有什么好的办法吗

[都市夜猫]

不用那么麻烦，切换单/多选状态后，再执行一条 Requery 指令即可，例如： Thisform.list1.MultiSelect = !(Thisform.list1.MultiSelect) Thisform.list1.Requery()

[zhaihs]

谢谢夜猫版主