在软件案例中有一个“动态加载演示”，“筛选功能”代码如下：

Dim Value()As String
Dim Filter As string
Value = e.Node.FullPath.Split("\\")
Select Case e.Node.Level
    Case 0
        Filter ="[产品] = \'" & Value(0) & "\'"
    Case 1
        Filter ="[产品] = \'" & Value(0) & "\' And [客户] = \'" & Value(1) & "\'"
End Select
DataTables("订单").LoadFilter = Filter
DataTables("订单").Load()

我想只显示同一产品中不同雇员的最后一条记录改怎么改写代码，例如：

此主题相关图片如下：1.jpg

本人新手，在此请教前辈了

再延伸一下，假如数据表再加一列“发生日期”，筛选的时候添加选项“截止日期”，筛选出来的结果

是发生在截止日期前的最后一条记录，代码又是如何的

加载最后一条数据:

Dim Value()As String
Dim Filter As String
Value = e.Node.FullPath.Split("\\")
Select Case e.Node.Level
    Case 0
        Filter ="[产品] = \'" & Value(0) & "\'"
    Case 1
        Filter ="[产品] = \'" & Value(0) & "\' And [客户] = \'" & Value(1) & "\'"
End Select
DataTables("订单").LoadFilter = Filter
DataTables("订单").LoadTop = 1
DataTables("订单").LoadOrder = "日期 Desc"
DataTables("订单").Load()

试了一下，没有达到我的需求，可能我的表述不清楚，重新发了个贴子

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=17957&page=1&star=1