专家坐堂-请教按条件加载数据问题Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请教按条件加载数据问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=193128)

--  作者：13315253800
--  发布时间：2024/8/20 9:55:00
--  请教按条件加载数据问题
蓝老师，请教按条件加载数据问题，我想实现先满足开发者登录加载所有行；用户分组为商贸公司的，加载"商贸公司"列为登录用户行，用户分组为非商贸公司加载“用户单位”列为登录用户的行，即不同用户处理不同的行。在此基础上只加载日期为当天的。以下代码未能实现，敬请蓝老师指导
\'按条件加载数据，让不同用户处理不同的行

If User.Type <> UserTypeEnum.Developer Then \'如果用户为非开发者

    If User.Group = "商贸公司" Then \'如果用户分组是"商贸公司"

        DataTables("表名").LoadFilter = "商贸公司 = \'" & User.Name & "\'" \'那么加载"商贸公司"列为登录用户负责行

    Else

        DataTables("表名").LoadFilter = "用户单位 = \'" & User.Name & "\'" \'否则只加载"用户单位"为登录用户负责的行

    End If

Else

    DataTables("表名").LoadFilter = "" \'加载所有行

End If

\'满足上面条件再只加载今天的采购验收：

DataTables("表名").LoadFilter = "[创建日期] = \'" & Date.Today & "\'" \'当天

DataTables("表名").Load

--  作者：有点蓝
--  发布时间：2024/8/20 10:45:00
--

dim filter as string = "[创建日期] = \'" & Date.Today & "\'" \'当天
If User.Type <> UserTypeEnum.Developer Then \'如果用户为非开发者
If User.Group = "商贸公司" Then \'如果用户分组是"商贸公司"
filter = filter & " and 商贸公司 = \'" & User.Name & "\'" \'那么加载"商贸公司"列为登录用户负责行
Else
filter = filter & " and 用户单位 = \'" & User.Name & "\'" \'否则只加载"用户单位"为登录用户负责的行
End If
End If
\'满足上面条件再只加载今天的采购验收：
DataTables("表名").LoadFilter = filter
DataTables("表名").Load