PowerBuilder数据窗口实现单选与多选

1、实现多项选择：

IF KeyDown(KeyControl!) THEN //按住ctrl键选择实现多选
 IF THIS.GetSelectedRow(row - 1) = row THEN
  THIS.SelectRow(row,FALSE)
 ELSE
  THIS.SelectRow(row,TRUE)
 END IF
ELSEIF KeyDown(KeyShift!) THEN //按住shift键实现连选
 
 Long ll_selectrow,ll_row
 Integer i
 
 
 ll_selectrow = THIS.GetSelectedRow(0) 
 
 If ll_selectrow <= row Then
   
  For i = ll_selectrow to row
   THIS.SelectRow(i,TRUE)
  Next
 Else
  
  For i = row to ll_selectrow
   THIS.SelectRow(i,TRUE)
  Next
  
 End If 
 
Else
 THIS.SelectRow(0,FALSE)
 This.selectrow(row,true)
END IF

 

 

2、对选择的数据进行操作：

 

Integer li_Selectrow

 

 li_Selectrow = dw_1.GetSelectedRow(0)
 
 DO WHILE li_Selectrow <> 0
  
   //处理内容,li_selectrow就是当前选择的行。
  
  li_Selectrow = dw_1.GetSelectedRow(li_Selectrow)
  
 LOOP