以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于在表格中拖动行的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=150982)

--  作者:aoc103
--  发布时间:2020/6/11 22:17:00
--  关于在表格中拖动行的问题
我在搜索里 找到了这个 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=40645&skin=0

在AfterSelRangeChange 事件


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


我保存使用,可发现 一直会跳出问题

.NET Framework 版本:4.0.30319.42000

Foxtable 版本:2020.5.29.8

错误所在事件:生产排单表_明细,AfterSelRangeChange

详细错误信息:

索引超出范围。必须为非负值并小于集合大小。

参数名: index



.NET Framework 版本:4.0.30319.42000

Foxtable 版本:2020.5.29.8

错误所在事件:生产排单表_明细,AfterSelRangeChange

详细错误信息:

未将对象引用设置到对象的实例。


--  作者:aoc103
--  发布时间:2020/6/11 22:19:00
--  
行的确是有变化了 可是 一直跳出问题
--  作者:有点蓝
--  发布时间:2020/6/11 22:38:00
--  
If e.NewRange.TopRow=0 AndAlso e.NewRange.BottomRow=e.Table.Rows.count-1 Then
Elseif e.Table.Current isnot nothing
    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