主题：筛选树可否设置为按时间排序？

你可以用这个事件：

http://www.foxtable.com/help/topics/2060.htm

设置AfterFilter代码：

Tables("订单").Sort = “日期”

Dim t As Table = Tables("订单")
Dim g As SubtotalGroup
t.SubtotalGroups.Clear()
t.GroupAboveData = False
t.TreeVisible = False
t.SpillNode = True

g = New SubtotalGroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "*"
g.TotalOn = "数量,金额"
g.Caption = "总计"
t.SubtotalGroups.Add(g)

t.Subtotal()

这样每次筛选后，就会自动排序，自动生成汇总行。