共5 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：如何在行标题处灵活的拖动行
1楼
happyft 发表于：2016/1/19 22:32:00
此主题相关图片如下：qq截图20160119222733.png
如上图，想实现在窗口表中任一行的标题处用鼠标点击后直接拖放到其他行放开就即可移动到新的行，要怎么实现？
谢谢！
2楼
大红袍 发表于：2016/1/19 22:38:00不行，拖动，是选定行。
不要拖动，用点击，再点另一行就移动行
[此贴子已经被作者于2016/1/19 22:38:18编辑过]
3楼
HappyFt 发表于：2016/1/19 22:42:00那样实现也可以，请教大红袍老师，那样代码要怎么写呢！谢谢！
4楼
大红袍 发表于：2016/1/19 23:03:00DoubleClickRowHeader 事件
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
5楼
ouyangfenghuan 发表于：2024/3/28 17:47:00If (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
共5 条记录, 每页显示 10 条, 页签:
[1]