- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 关于隐藏行 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=119602)
-- 发布时间：2018/5/28 14:57:00
-- 关于隐藏行
老师,我的意思是:用户登录后,如果"分配进件人员"不等于_username,那么这一行就隐藏掉看不见,这样写的话,要怎么改呢
Dim r As DataRow = DataTables("客户需求登记表").find("分配跟进人员=\'" & _UserName & "\'")
If r IsNot Nothing Then
msgbox(111)
Else
Syscmd.Row.HideSelectedRows()
End If
此主题相关图片如下：qq截图20180528145735.png
-- 发布时间：2018/5/28 15:31:00
--
参考
Tables("表A").Rows(2).Remove
-- 发布时间：2018/5/28 15:37:00
--
老师，可以批量隐藏的吗
-- 发布时间：2018/5/28 16:26:00
--
老师，我在计划管理中这样写：先是刷新，然后判断，如果用户是“韦松林” 就重新筛选显示，为什么无效呢？
For Each dt As Table In Tables
If dt.name <> "users" AndAlso dt.Name<>"总收入排行" Then
If dt.current IsNot Nothing Then
Dim id As String = dt.current("_Identify")
If vars("正在编辑") = False Then
dt.DataTable.Load()
End If
Dim i As Integer = dt.FindRow("_Identify = \'" & id & "\'")
If i >= 0 Then
dt.Position = i
End If
Else
If vars("正在编辑") = False Then
dt.DataTable.Load()
End If
End If
End If
Next
If _UserName="韦松林" Then
Tables("客户需求登记表").Filter="分配跟进人员=\'" & _UserName & "\'"
End If
-- 发布时间：2018/5/28 17:03:00
--
你说的无效是哪种情况？所有数据都显示了，还是需要的数据没有显示？
-- 发布时间：2018/5/28 17:07:00
--
刷新之后，所有数据已经显示完了，但是 这一句代码没有执行呀
If _UserName="韦松林" Then
Tables("客户需求登记表").Filter="分配跟进人员=\'" & _UserName & "\'"
End If
-- 发布时间：2018/5/28 17:08:00
--
我想显示完全部订单后，再根据用户名来显示相对应的订单这样
-- 发布时间：2018/5/28 17:44:00
--
试试改成
For Each dt As Table In Tables
If dt.name <> "users" AndAlso dt.Name<>"总收入排行" Then
If dt.current IsNot Nothing Then
Dim id As String = dt.current("_Identify")
If vars("正在编辑") = False Then
dt.DataTable.Load()
End If
Dim i As Integer = dt.FindRow("_Identify = \'" & id & "\'")
If i >= 0 Then
dt.Position = i
End If
Else
If vars("正在编辑") = False Then
dt.DataTable.Load()
End If
End If
End If
Next
msgbox(_userName)
Tables("客户需求登记表").Filter="分配跟进人员=\'" & _UserName & "\'"
或者
msgbox(_userName)
dataTables("客户需求登记表").LoadFilter="分配跟进人员=\'" & _UserName & "\'"
dataTables("客户需求登记表").Load
-- 发布时间：2018/5/28 17:57:00
--
老师，这样写了，没有效果
If _UserName="韦松林" Then
DataTables("客户需求登记表").LoadFilter="分配跟进人员=\'" & _UserName & "\'"
DataTables("客户需求登记表").Load
End If
-- 发布时间：2018/5/28 18:39:00
--
这个代码不写呢？
If _UserName="韦松林" Then