以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]一个表里只加载自己的项目  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=95319)
--  作者：紫色幽魂
--  发布时间：2017/1/16 16:40:00
--  [求助]一个表里只加载自己的项目
在一个表里面有一个姓名列，我只想自己加载自己的名字的那些行，在表事件的加载事件BeforeLoad里面设置代码，将帮助里面的代码复制过来修改为姓名后，不能只加载自己的行，请问是怎么回事儿

If User.Group = "姓名"
Dim fl As String = "姓名 = \'" & User.Name & "\'"
If e.DataTable.LoadFilter = "" Then
e.DataTable.LoadFilter = fl
ElseIf e.DataTable.LoadFilter.IndexOf(fl) < 0 Then
e.DataTable.LoadFilter = e.DataTable.Loadfilter & " And " & fl
End If
End If
--  作者：有点色
--  发布时间：2017/1/16 17:05:00
--  

事件里面加入msgbox，按是否执行了里面的代码

 

If User.Group = "姓名"
    Dim fl As String = "姓名 = \'" & User.Name & "\'"
    msgbox("执行了")
    If e.DataTable.LoadFilter = "" Then
        e.DataTable.LoadFilter = fl
    ElseIf e.DataTable.LoadFilter.IndexOf(fl) < 0 Then
        e.DataTable.LoadFilter = e.DataTable.Loadfilter & " And " & fl
    End If
End If

 同时，你还需要这样处理

 

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

 
--  作者：紫色幽魂
--  发布时间：2017/1/17 17:57:00
--  
谢谢，我试试