以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  系统菜单的“选择”筛选，面对关联表居然是从DATATABLE取值  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=88857)
--  作者：wjl-se
--  发布时间：2016/8/10 16:20:00
--  系统菜单的“选择”筛选，面对关联表居然是从DATATABLE取值
 是否改进一下比较合理呢？
--  作者：大红袍
--  发布时间：2016/8/10 17:19:00
--  

 这个功能，自己做呗，也很简单。

 

 放一个listBox，然后把表的值赋值进去。点击筛选一下即可。
--  作者：wjl-se
--  发布时间：2016/8/11 10:57:00
--  

关联表，“选择”筛选菜单，代码：

If CurrentTable.IsRelation Then
    Dim flt As String
    For Each re As Relation In Relations
        If re.ParentTable.Name & "." & re.ChildTable.Name = CurrentTable.Name Then
            flt = re.ChildColumn.Name & " = \'" & CurrentTable.Current(re.ParentColumn.Name) & "\'"
            Exit For
        End If
    Next
    CurrentTable.Filter = flt
End If
Syscmd.Filter.Values()
--  作者：大红袍
--  发布时间：2016/8/11 10:59:00
--  
 与其这样做，还不如自己做一个窗口。