主题：筛选

我做了一个目录树筛选窗口，能通过目录树实现调取该选项的所有数据，现在有一个问题，子表加载的数据只有与父表关联的行，如果我想在子表中另外筛选则显不了其他行。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:产品.zip

在产品窗口中做了一个目录树与table，目录树是对产品的全部筛选，通过选择产品在table中能够显示相应的产品明细，另外在产品表currentchanged事件中写了代码If e.Table.Current IsNot Nothing Then
    Dim Filter As String = "产品 = '" & e.Table.Current("产品") & "'"
    DataTables("订单").LoadFilter = Filter
    DataTables("订单").Load
End If

意思是选择当前行能关联表中显示所有与此行产品相关的产品明细

 现在问题是我这样做了，订单就不能再做其他筛选了，因为订单中显示的数据只是与当前行相关的产品明细，其他的显示不出了。

 

上述功能还需要有，还不能影响订单其他使用，该怎么处理

按这样去做，就实现不了点某产品时，产品订单关联表显示相应的产品数据，是否需要在菜单中添加一个选择按钮，如果需要筛选时就

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:产品.zip

两个功能都需要，怎么做能实现两种功能呢？

你给我修改过了吗

 

按4楼那样去就实现不了，选择当前行时，关联表能够显示当前产品的所有明细

现在需要实现两方面的功能

1、选择父表的某种产品时，关联表能够显示此种产品的所有明细（包括未加载的）

2、订单不受任何限制地进行筛选、查询等功能。

 

 

现在的情况是不加上述代码没有办法实现第2种功能，加了上述代码则第一种功能实现不了。

这个项目可心了，我把相同代码复制到另外一项目中，怎么就不行了呢，代码如下：

If e.Table.Current IsNot Nothing Then
    If DataTables.Contains("公司_Table1") Then
        Dim Filter As String = "账号 = '" & e.Table.Current("账号") & "'"
        DataTables("公司_Table1").LoadFilter = Filter
        DataTables("公司_Table1").Load
    End If
End If

这是什么原因呀？

在窗口中也是sqltable，数据源、select语句也都写了，格式也是一样的，这是为什么呢

窗口中可以用按钮上下页来实现切换，把相同格式的代码做到另外一个项目中就不行了

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:产品2.zip

但是不知道为什么到其他项目就不行了呢?