主题：系统菜单的“选择”筛选，面对关联表居然是从DATATABLE取值

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

 放一个listBox，然后把表的值赋值进去。点击筛选一下即可。

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

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()