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

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