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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]条件加载

共有1594人关注过本帖树形打印复制链接主题：[求助]条件加载

lgj716330

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1390 积分：10708 威望：0 精华：0 注册：2013/11/8 15:27:00

[求助]条件加载 发帖心情

Post By：2017/8/25 12:58:00 [只看该作者]

If User.Group = "总部" Then

DataTables("销售日报").LoadFilter = ""

Else

DataTables("销售日报").LoadFilter = ("公司 = '" & User.Group & "'")

End If

DataTables("销售日报").Load()

我想改成，如果是总部，则加载销售日报中最大日期所有公司的数据，否则就加载各自公司销售日报中最大日期的数据，但可能每家公司的最大日期是不一样的，求助

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/8/25 14:38:00 [只看该作者]

If User.Group = "总部" Then
    Dim filter As String = "1=2"
    For Each gs As String In DataTables("销售日报").SQLGetValues("公司")
        Dim maxd As Date = DataTables("销售日报").SQLCompute("max(日期)", "公司 = '" & gs & "'")
        filter &= " or " & "日期 = '" & maxd & "' and 公司 = '" & gs & "'"
    Next
    DataTables("销售日报").LoadFilter = filter
Else
    Dim maxd As Date = DataTables("销售日报").SQLCompute("max(日期)", "公司 = '" & User.Group & "'")
    DataTables("销售日报").LoadFilter = "日期 = '" & maxd & "' and 公司 = '" & User.Group & "'"
End If
DataTables("销售日报").Load()

下一主题 >> << 上一主题

主题：[求助]条件加载