您好老师，

我有一个问题看了教程还是不知道如何解决

我描述的比较啰嗦，因为我不是很懂：

表“客户信息”里面有不同公司对应的不同联系人

表“礼品派送计划”里的 公司 用目录树功能选择 表“客户信息”里面的公司名，

如何实现 当在表“礼品派送计划”里选择具体的一个公司时 姓名 那里会自动出现这家公司在表“客户信息”里的联系人

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

点击浏览该文件:管理项目1.foxdb

方法一设置一下：

方法二：DataColChanged事件

If e.DataCol.Name = "公司"  Then
    Dim dr As DataRow
    Dim Filter As String
    Filter = "公司名 = \'" & e.DataRow("公司") & "\'"
    dr = DataTables("客户信息").Find(Filter)
    If dr IsNot Nothing Then \'如果找到

        e.DataRow("姓名") = dr("联系人")
    Else
        e.DataRow("姓名") = Nothing
    End If
End If

谢谢老师的回复，但是还是无法实现

因为表“客户信息”里面一家公司对应有2个联系人

表“礼品派送计划”里要根据表“客户信息”做出对应选择

方法一和方法二都无法选择。请问有什么办法当选择 广州A公司 时 联系人可以出现下拉菜单显示 赵好，赵红，刘桂芳

太谢谢 大红袍 老师了，真的太感谢您了。