共2 条记录, 每页显示 10 条, 页签: [1]

标题：请教按条件加载数据问题

1楼

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

2楼

有点蓝 发表于：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

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

DataTables("表名").LoadFilter = filter

DataTables("表名").Load

共2 条记录, 每页显示 10 条, 页签: [1]