以文本方式查看主题

-  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