以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  隐藏行咨询  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=97168)

--  作者:zchlln
--  发布时间:2017/3/7 13:17:00
--  隐藏行咨询
列内容为 已退网的行 自动隐藏 只有点击 查看退网车辆的按钮时 才显示 再点击其他按钮时依然过滤掉已退网,打开项目时 默认也屏蔽已退网
--  作者:wyz20130512
--  发布时间:2017/3/7 13:47:00
--  
表的AfterLoadTableSetting事件:
With e.Table
    If .Name = "表A" Then
        For Each r As Row In .Rows
            If r("第一列") = "已退网" Then
                r.Remove()
            End If
        Next
    End If
End With

退网车辆按钮代码:
With DataTables("表A")
    Dim dr As DataRow = .Find("第一列 = \'已退网\'")
    If dr Is Nothing Then
        .AppendLoad("第一列 = \'已退网\'")
    End If
End With
[此贴子已经被作者于2017/3/7 13:51:32编辑过]

--  作者:有点蓝
--  发布时间:2017/3/7 14:47:00
--  
直接筛选,http://www.foxtable.com/webhelp/scr/0448.htm

隐藏:
Tables("订单").Filter = "列A <> \'已退网\'"

显示
Tables("订单").Filter = ""

--  作者:zchlln
--  发布时间:2017/3/8 9:06:00
--  
筛选的功能 我明白 但我想要已退网的车辆不加载 只有需要显示已退网的数据才显示并且是只显示已退网的数据,设计按钮来实现 可以将已退网的数据显示在一个其他表中
--  作者:有点色
--  发布时间:2017/3/8 9:19:00
--  

DataTables("表a").LoadFilter = "第一列 <> \'已退\' or 第一列 is null"

DataTables("表a").Load


--  作者:有点色
--  发布时间:2017/3/8 9:20:00
--  

http://www.foxtable.com/webhelp/scr/1279.htm

 


--  作者:zchlln
--  发布时间:2017/3/8 11:25:00
--  
成功了 但我想对这个表的 修改权限进行限制 无法编辑和删除 如何操作?


--  作者:有点色
--  发布时间:2017/3/8 11:30:00
--  

如果整体控制,参考

 

http://www.foxtable.com/webhelp/scr/1667.htm

 

如果要单独控制,可以设置 startEdit、DataColChanging、BeforeDeleteDataRow等事件

 

http://www.foxtable.com/webhelp/scr/1446.htm