- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 如何在行标题处灵活的拖动行 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=80282)
-- 发布时间：2016/1/19 22:32:00
-- 如何在行标题处灵活的拖动行
此主题相关图片如下：qq截图20160119222733.png
如上图，想实现在窗口表中任一行的标题处用鼠标点击后直接拖放到其他行放开就即可移动到新的行，要怎么实现？
谢谢！
-- 发布时间：2016/1/19 22:38:00
--
不行，拖动，是选定行。
不要拖动，用点击，再点另一行就移动行
[此贴子已经被作者于2016/1/19 22:38:18编辑过]
-- 发布时间：2016/1/19 22:42:00
--
那样实现也可以，请教大红袍老师，那样代码要怎么写呢！谢谢！
-- 发布时间：2016/1/19 23:03:00
--
DoubleClickRowHeader 事件
If vars("idx") = -1 Then
vars("idx") = e.Row.index
Else
Dim idx As Integer = e.Row.Index
Dim pr As Row = e.Table.Rows(vars("idx"))
e.Row.Move(pr.index)
pr.move(idx)
vars("idx") = -1
End If
使用前要把 vars("idx") = -1
-- 发布时间：2024/3/28 17:47:00
--
If (e.NewRange.TopRow = 0 AndAlso e.NewRange.BottomRow = e.Table.Rows.count - 1) Or e.NewRange.LeftCol > 0 Then \'只能在行号处进行拖动
ElseIf e.Table.Current IsNot Nothing Then
\'权限设定
Dim bl As Boolean \'...
If bl Then
e.Table.Sort=""
If e.Table.TopPosition < e.Table.Current.Index Then
e.Table.Current.Move(e.Table.TopPosition)
Else
e.Table.Current.Move(e.Table.BottomPosition)
End If
End If
End If