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