Multiple Select Rows In Datawindow
Instance Variables:
1 | Long il_DWSelectedRow |
Dawindow Event Click:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 | If Row > 0 Then If KeyDown(KeyControl!) Then This.SelectRow(Row,True) Else This.SelectRow(0,False) This.SelectRow(Row,True) End If If KeyDown(KeyShift!) Then This.Event Trigger ue_ShiftClicked( Row ) Return End If End If il_DWSelectedRow = Row This.SetRow(Row) |
Datawindow Custom New Event : ue_shiftclicked
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 | //==================================================================== // Event: dw_1.ue_shiftclicked() //-------------------------------------------------------------------- // Description: //-------------------------------------------------------------------- // Arguments: // value long paramrow //-------------------------------------------------------------------- // Returns: long //==================================================================== Long ll_OldRow, ll_StartRow, ll_EndRow, ll_RowCounter ll_OldRow = il_DWSelectedRow If ll_OldRow > ParamRow Then ll_StartRow = ParamRow ll_EndRow = ll_OldRow Else ll_StartRow = ll_OldRow ll_EndRow = ParamRow End If For ll_RowCounter = ll_StartRow To ll_EndRow Step 1 This.SelectRow( ll_RowCounter, True ) Next This.SetRow( ParamRow ) This.SetColumn( 1 ) Return 0 |
Find Projects On Github click here
Good Luck!