Database Search

match allmatch any Look in all areasLook in current areas Check all datesPrevious dayPrevious 3 daysPrevious weekPrevious fortnightPrevious monthPrevious 2 monthsPrevious 3 monthsPrevious half-yearPrevious year

TechHome

• Bing Maps
• Countdown Timer - Dialog
• Date and Time Picker Sample
• Detect Right Click on Control in WIL Dialog
• Determine Dialogs Window State
• Determine When a Control Gets Focus
• Display Contents of a Text File
• Display Row of Data From Excel
• File Browse Alternative
• Get handle to WIL Dialog Control
• Hotspot Dialog Demo
• IP Address Dialog Sample
• Job Control Panel
• Menu Sample
• Microsoft InkEdit COMCONTROL
• Mouseover Static Control
• Move Item in ITEMBOX Using Buttons
• MSHTML Button Click
• Open Dialog Relative to Another Window
• Photo Player COMCONTROL
• Photo Viewer COMCONTROL
• Poor Mans Grid
• ReportView Control Sub Item Edit
• Resizable AskItemList Box
• Resize Controls
• Resize Dialog and Controls Dynamically- Global Variables
• Resize Dialog and Controls Dynamically
• RichTextbox COMCONTROL Sample
• Select All REPORTVIEW Checkboxes with Duplicate Values
• Select All Rows In ReportView
• Select Checkboxes of All Duplicates
• Selected Text in a MULTILINEBOX
• Temporarily Hide WIL Dialog
• Track Bar Sample

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

Select All Rows in a ReportView Control

 Keywords:  @dcItemText @dcSelect ReportView Select rows DialogControlGet

---

This simple example illustrates using the DialogControlGet's @dcItemText request and DialogControlSet's @dcSelect request to select all the rows in a WIL Dialog ReportView control.

  Terminate(Version()<'2020B', 'Version Check',' Version 2020B or newer required.')
  
  #DefineSubRoutine ExProc(hExRv,ExRv_Event,ExRv_Name,ExRv_EventInfo,ExRv_ChangeInfo)
     Switch ExRv_Event
        Case @deinit  ; Standard Initialization message
           DialogProcOptions(hExRv,@depbpush,@true)
           Return(@retdefault)
  
        Case @depbpush
           If ExRv_Name == "SelAll"  ; Select All
  
              hWndRv = DialogControlGet(hExRv, 'RVEx_1', @dchwnd, 0)
              nRows = SendMessageW( hWndRv, 4100, 0, "")   ;LVM_GETITEMCOUNT == 4100
              For i = 1 To nRows
                 strText = DialogControlGet(hExRv, 'RVEx_1', @dcitemtext, i)
                 DialogControlSet(hExRv, 'RVEx_1', @dcselect, strText)
              Next
              Return(@retnoexit )
           ElseIf ExRv_Name == "DeselAll" ; Deselect All
              DialogControlSet(hExRv, 'RVEx_1', @dcselect, '')
              Return(@retnoexit )
            ElseIf ExRv_Name == "Exit" ; Quit
              Return(@retdefault)
            EndIf
     EndSwitch
     Return(@retdefault)
  #EndSubRoutine
  
  aRv = ArrDimension(10, 2)
  For i = 1 To 10
     aRv[i, 0] = 'repeated text'
     aRv[i, 1] = i
  Next
  
  ExRvFormat=`WWWDLGED,6.2`
  
  ExRvCaption=`@DCItemText Example`
  ExRvX=595
  ExRvY=154
  ExRvWidth=393
  ExRvHeight=249
  ExRvNumControls=004
  ExRvProcedure=`ExProc`
  ExRvFont=`DEFAULT`
  ExRvTextColor=`DEFAULT`
  ExRvBackground=`DEFAULT,DEFAULT`
  ExRvConfig=0
  ExRvDPI=`192,10,20`
  
  ExRv001=`060,209,064,015,PUSHBUTTON,"SelAll",DEFAULT,"Select All",1,10,@csDefButton,DEFAULT,DEFAULT,DEFAULT`
  ExRv002=`284,209,049,015,PUSHBUTTON,"Exit",DEFAULT,"Quit",0,30,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
  ExRv003=`170,209,062,015,PUSHBUTTON,"DeselAll",DEFAULT,"Deselect All",2,20,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
  ExRv004=`038,022,314,159,REPORTVIEW,"RVEx_1",aRV,DEFAULT,DEFAULT,40,@csFullSel|@csGrid,DEFAULT,DEFAULT,DEFAULT`

---

Article ID:   W18538

File Created: 2021:01:05:15:31:42

Last Updated: 2021:01:05:15:31:42