[SOLVED] OLE Drag&Drop doesn't work

Open Clipboard Viewer and check clipboard format after your drag file from Windows Explorer.

 

I looked at it, but I see not how I can use RC.OleDragDrop. It seems simply a work around for an omission in your code. It is a feature that worked in 12.1, it was specified in your help file but it doesn't work no more.

 

So please CJ publish corrected version 13.1.1 as soon as possible!!!

 

Yes, this sample works - BUT only because the reportcontrol is empty. As soon as you have one or more records loaded and you remove the delete command it doesn't work no more. I will send an issue report to CJ

 

Tnaknks again

 

You are right. I solved the problem: OLE D&D does not work as soon as the sortorder is not empty. If you remove all columns from the sort order or you set the flag .SortedDragDrop then it works nearly as in V12. The only difference is, that there is a red insertion line - but that is cosmetic.

 

 

Thanks again

To export in excel file after sort applied:

Private Function CreateArray()
Dim record As XtremeReportControl.ReportRecord
Dim row As XtremeReportControl.ReportRow
Dim recordItem As XtremeReportControl.ReportRecordItem
    'this will also create array with non visible items, loop through rows if you want only visible items.
    'Maybe you want to do filtering on records and only want those in xls file.
    ReDim arrayRCValues(wndReportControlFiles.Records.Count, wndReportControlFiles.Columns.Count)
'    For Each record In wndReportControlFiles.Records
'        For Each recordItem In record
'            arrayRCValues(record.Index, recordItem.Index) = recordItem.Caption
'        Next recordItem
'    Next record
    For Each row In wndReportControlFiles.Rows
        Set record = row.record
        For Each recordItem In record
            arrayRCValues(row.Index, recordItem.Index) = recordItem.Caption
        Next recordItem
    Next row
End Function

 

If you want to use drag and drop to change sort after - use new mode

SortedDragDrop = True