Foxtable(狐表) → 用户栏目 → 专家坐堂 → 【求助】移位行的代码事件问题


  共有3202人关注过本帖树形打印复制链接

主题：【求助】移位行的代码事件问题
帅哥哟，离线，有人找我吗？
wangjx817
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：261 积分：2156 威望：0 精华：0 注册：2018/4/30 16:00:00 		【求助】移位行的代码事件问题  发帖心情 Post By：2020/9/2 10:37:00 [只看该作者]

老师，请问我想在某主表中将新增的末尾行自动移动到指定行位置，这个代码应该写在哪个表事件里面？

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/9/2 10:42:00 [只看该作者]

DataRowAdded事件

 回到顶部
帅哥哟，离线，有人找我吗？
wangjx817
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：261 积分：2156 威望：0 精华：0 注册：2018/4/30 16:00:00 		  发帖心情 Post By：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事件下，发现取消排序无效、也未移动行。错在哪里，请老师指点？
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/9/2 11:12:00 [只看该作者]

Dim dr0  As DataRow = e.DataRow

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 4 次数据查询