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