专家坐堂-请教：ListView控件分组显示数据时，如何从一组中拖动一行到另一组？Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")

Dim listView1 As System.Windows.Forms.ListView = lvw.BaseControl

AddHandler listView1.DragDrop, AddressOf ListView1_DragDrop

Public Sub listView1_DragDrop( sender As Object, e As System.Windows.Forms.DragEventArgs)

Dim listView1 As System.Windows.Forms.ListView = sender

Dim draggedItem As System.Windows.Forms.ListViewItem = e.Data.GetData(GetType(System.Windows.Forms.ListViewItem))

\'Output.Show("draggedItem.text=" & draggedItem.Text)

Dim point As Point = listView1.PointToClient(New Point(e.X, e.Y))

Dim targetItem As System.Windows.Forms.ListViewItem = listView1.GetItemAt(point.X, point.Y)

If targetItem IsNot Nothing Then

Dim newGroup As System.Windows.Forms.ListViewGroup = targetItem.Group

\' Output.Show("newGroup=" & (newGroup Is Nothing))

If newGroup IsNot Nothing Then

Output.Show("newGroup=" & newGroup.Name)

draggedItem.Group = newGroup

Output.Show("targetItem.Index=" & targetItem.Index)

End If

End Sub