MyPage is a personalized page based on your interests.The page is customized to help you to find content that matters you the most.


I'm not curious

Selecting Multiple Rows in Datawindow

Published on 29 August 16
832
0
3
Selecting Multiple Rows:
************************************************

1/ Declare an instance variable:

Long il_DWSelectedRow

2/ write code in clicked event of the datawindow-

// Object: uo_DataWindow control user object
// Event: Clicked
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)

// In : ue_ShiftClicked
// Parameter : long - name paramrow
***********************
// Object: uo_DataWindow Control user object
// Event: ue_ShiftClicked

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

Selecting Multiple Rows:

************************************************

1/ Declare an instance variable:

Long il_DWSelectedRow

2/ write code in clicked event of the datawindow-

// Object: uo_DataWindow control user object

// Event: Clicked

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)

// In : ue_ShiftClicked

// Parameter : long - name paramrow

***********************

// Object: uo_DataWindow Control user object

// Event: ue_ShiftClicked

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

This blog is listed under Development & Implementations Community

Related Posts:
Post a Comment

Please notify me the replies via email.

Important:
  • We hope the conversations that take place on MyTechLogy.com will be constructive and thought-provoking.
  • To ensure the quality of the discussion, our moderators may review/edit the comments for clarity and relevance.
  • Comments that are promotional, mean-spirited, or off-topic may be deleted per the moderators' judgment.
You may also be interested in
Awards & Accolades for MyTechLogy
Winner of
REDHERRING
Top 100 Asia
Finalist at SiTF Awards 2014 under the category Best Social & Community Product
Finalist at HR Vendor of the Year 2015 Awards under the category Best Learning Management System
Finalist at HR Vendor of the Year 2015 Awards under the category Best Talent Management Software
Hidden Image Url

Back to Top