pb 选择多行数据窗口数据_PB数据窗口中多行选中程序

首先定义窗口实例变量： long il_LastSelectedRow = 1 然后开始编写多行选中程序。程序算法描述如下： 1、如果按下了Control键  如果是在选中行上，取消该行     否则，选中该行  记录当前到窗口实例变量中 2、如果按下了Shift键  取消所有选中行  选中上次点击行和当前行之间的所有数据行  记录当前到窗口实例变量中 3、如果没有按键   如果点击行为选中行，不执行任何操作   否则，取消所有选中行，选中当前行   记录当前到窗口实例变量中 比如，我们在窗口dw_1的Clicked事件中编写该脚本，程序如下： long ll_Start long ll_End long ll_index if Row < 1 then return if KeyDown(KeyControl!) then if This.IsSelected(Row) then This.SelectRow(Row,False) else This.SelectRow(Row,True) end if elseif KeyDown(KeyShift!) then if Row < il_LastSelectedRow then ll_Start = Row ll_End = il_LastSelectedRow else ll_Start = il_LastSelectedRow ll_End = Row end if This.SelectRow(0,False) For ll_index = ll_Start to ll_End This.SelectRow(ll_index,True) next else if Not This.IsSelected(Row) then This.SelectRow(0,False) This.SelectRow(Row,True) end if end if il_LastSelectedRow = Row