| |
|
ActiveReports 6 Support
Started by jyoder at 04-07-2009 1:25 PM. Topic has 2 replies.
  
|
|
Sort Posts:
|
|
|
|
 04-07-2009, 1:25 PM
|
jyoder
Joined on 10-24-2003
Posts 612
|
Drag and Drop no longer works
|
|
|
|
|
This is the code we've been using, but it no longer works. (The cursor doesn't even change to show a plus sign when hovering over the designer as it does in AR3.)...
Private Sub TreeMouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles trFields.MouseDown
If CType(sender, SasControls.SuTreeView).ActiveNode Is Nothing Then Exit Sub
Const ARDesigner_DataObjectFormat As String = "{5CED4213-77BB-42ec-8358-0482CEDDA50B}"
Dim dataFieldList As New ArrayList
' the key is [query].[field]
Dim aNode As Infragistics.Win.UltraWinTree.UltraTreeNode = CType(sender, SasControls.SuTreeView).ActiveNode
If aNode.HasNodes Then Exit Sub
' Replace characters "(", ")", and ":" with "_" or AR will give error with naming.
dataFieldList.Add(aNode.Parent.Text & "." & aNode.Text.Replace("("c, "_"c).Replace(")"c, "_"c).Replace(":"c, "_"c))
Dim doData As DataObject = New DataObject(ARDesigner_DataObjectFormat, dataFieldList)
CType(sender, SasControls.SuTreeView).DoDragDrop(doData, DragDropEffects.Copy)
End Sub
Do I simply need a different value for "Const ARDesigner_DataObjectFormat" that relates to AR6?
|
|
|
|
|
Report
|
|
|
|
|
04-07-2009, 8:44 PM
|
raji
Joined on 08-28-2004
Dublin, OH
Posts 788
|
Re: Drag and Drop no longer works
|
|
|
|
|
|
jyoder
Try this GUID : FCED4213-77BB-42ec-8358-0482CEDDA500
|
|
|
|
|
Report
|
|
|
|
|
04-08-2009, 7:25 AM
|
jyoder
Joined on 10-24-2003
Posts 612
|
Re: Drag and Drop no longer works
|
|
|
|
|
|
|
|
|
GrapeCity » Product Support » ActiveReports 6... » Re: Drag and Drop no longer works
|
|
|
|
|