求教 数据窗口 某行数据拖动位置

[fengxiaohan211]

如题，关于数据窗口行数据怎么实现随意的拖动 网上没有类似的例子或者我没有找到。谢谢，希望大家指导一下。。。

[fengxiaohan211]

````````````````````````

[newease]

http://download.csdn.net/source/2644813

[fengxiaohan211]

谢谢楼上的 我是想在一个数据窗口中拖动排序 比如第一行拖到最后一行。。。

[ljh_tom]

会的帮助下吧!路过

[ljh_tom]

来帮忙啊!

[垂莲子]

假设你的数据窗口控件是dw_1
1、窗体 Instance Variables中新增变量
Long il_SelectedRow
2、dw_1的属性页的Other中，DragICon添加一个用于拖拽时显示的图标（ico格式的文件）
3、dw_1的Click事件中
THIS.Drag(Begin!)
THIS.DragAuto = TRUE
il_SelectedRow = row
4、dw_1的dragdrop事件中
IF ClassName(Source) = "dw_1" THEN
THIS.DragAuto = FALSE
THIS.RowsMove(il_SelectedRow,il_SelectedRow,Primary!,THIS,row,Primary!)
END IF

[垂莲子]

上面的第4中少了第一行代码：
IF row = 0 THEN row = THIS.RowCount()+1

注：此方法影响数据窗口的数据修改，数据无须修改用此方法可以

[crazyrcd]

可以把每次改过后关闭窗口时把数据窗口的格式保存下来，然后打开的时候再去设置下

[zgxer]

[Quote=引用 3 楼 fengxiaohan211 的回复:]
谢谢楼上的 我是想在一个数据窗口中拖动排序 比如第一行拖到最后一行。。。
[/Quote]

用rowsmove