Dim y As Integer = Date.Today.Year
Dim dt1 As New Date(y, 1, 1)
Dim dt2 As New Date(y, 12, 31)
Dim Filter As String
Filter = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#"
DataTables("订单").LoadFilter = Filter
DataTables("订单").Load()
问题:上面是加载代码,需求是《订单表》根据《用户表》的“分组”的用户进行加载,
如果当前用户是“分组”为销售经理,那就是加载销售部全部订单;
如果当前用户是“分组”为销售主管A,那就是只加载销售部销售主管A所属的订单;
如果当前用户是“分组”为录入者,那就是只加载销售部录入者所属的订单;
关键问题,订单表中只有录入者字段,如何实现上面需求?