以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  锁定行  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=52559)
--  作者：shanmao
--  发布时间：2014/6/18 10:35:00
--  锁定行
表中有一行数据是锁定行，是固定不允许发生改动的，当我向表中增加行添加数据时，那锁定行始终都是在最下面的最后一行。可以设置吗？
--  作者：有点甜
--  发布时间：2014/6/18 10:42:00
--  

没有办法做到，除非你用代码去排序，代码要写在多个事件里。

 

Tables("表A").Sort = "_Locked"
--  作者：Bin
--  发布时间：2014/6/18 10:42:00
--  

DataRowAdded 事件


Dim dr As DataRow
dr = DataTables("订单").Find("[锁定后] = True") \'找到锁定后的条件,请自己自定义
If dr IsNot Nothing Then
    Dim wz As Integer = Tables("订单").FindRow(dr)
    If wz >= 0 Then
        Tables("订单").rows(wz).move(Tables("订单").rows.count-1)
    End If
End If



或者参考这里的合计行固定 http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=45520