按照sywzs 给出的思路引深,把Check1绑定的数据源、及其所在Column1的currentControl都保存、恢复就可以了。当然数组中的元素也要随之改变。
相互学习,互相交流,共同提高。
*cmd.click * para ls sele 1 copy to &temp\ls for 测=.f. zap appe from &temp\ls go top thisform.grid1.refresh
proc grid1.init with this.Columns(5) &&是否 .AddObject("是否","checkBox") .是否.Visible =.t. .是否.caption ="" .CurrentControl ="是否" .Sparse =.f. .width =30 endwith