主题：自定义窗口

我做了一个项目，有2个问题 1、想在窗口中按照自定义窗口二的范例输入财务负责人，在主表中正常，改在主表的副本中报错，帮我看一下。2、窗口加载过程中，通过逻辑列筛选，一种加载没有选中的（比如表中是否转换为潜在客户，），一个是加载选中的，代码怎么写。谢谢

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

点击浏览该文件:速达客户管理系统.foxdb

afterOpenProject的代码 Tables("资源客户_Table1").Cols("财务负责人_姓名").DropForm = "人员下拉"

 

写到窗口的afterLoad事件，即可。

afterOpenProject删除这句代码啊

 

Tables("资源客户_Table1").Cols("财务负责人_姓名").DropForm = "人员下拉"

窗口的表为副本，通过筛选加载了主表的一部分，现在需要按设定的条件继续进行筛选，怎么才可以只筛选副本中的内容，而不是筛选主表中内容，比如，只筛选窗口中副本的客户。下边代码哪里有问题（这个代码筛选的主表的）

Dim Filter As String

With e.Form.Controls("cmbProduct")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "客户名称 = '" & .Value & "'"
    End If
End With

If Filter > "" Then
    Tables("VIP客户_Table1").Filter = Filter
End If

1、在afterLoad事件，记录你副本表的筛选条件，如

 

vars("条件") = "第一列='123'"

 

2、代码改一下

 

Tables("VIP客户_Table1").Filter = Filter & " and " & vars("条件")