以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  【求助】移位行的代码事件问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=154043)
--  作者：wangjx817
--  发布时间：2020/9/2 10:37:00
--  【求助】移位行的代码事件问题
老师，请问我想在某主表中将新增的末尾行自动移动到指定行位置，这个代码应该写在哪个表事件里面？
--  作者：有点蓝
--  发布时间：2020/9/2 10:42:00
--  
DataRowAdded事件
--  作者：wangjx817
--  发布时间：2020/9/2 11:05:00
--  
Dim dtb = DataTables("松北所DMA分区统计表")
Dim tb = Tables("松北所DMA分区统计表")
Dim dr0  As DataRow =  dtb.DataRows(dtb.DataRows.count - 1)
Dim wz0 As Integer =  tb.FindRow(dr0)
dim nv as string = dr0("小区编号")

tb.sort = "分片区 desc,管理站,分块,小区编号"
Dim Filter1 As String
Filter1 = "[小区编号] = \'" & nv & "\'"
Dim dr1 As DataRow = dtb.Find(Filter1) 
If dr1 IsNot Nothing Then
Dim wz1 As Integer =  tb.FindRow(dr1)
Syscmd.Sort.UnSort()
tb.Rows(wz0).Move(wz1)
tb.save()
end if

为什么上述代码写在datarowadded事件下，发现取消排序无效、也未移动行。错在哪里，请老师指点？
--  作者：有点蓝
--  发布时间：2020/9/2 11:12:00
--  
Dim dr0  As DataRow = e.DataRow