自定义录入界面三问题,请教老师们 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

这样试一下

If e.Col.Name = "产品名称" Then '如果编辑的是客户ID列
    If e.Col.DroppedDown Then '如果下拉窗口已经打开
        Dim tbl As Table = Tables("客户产品下拉窗口_Table1")
        If e.Text = "" Then '如果内容为空
            tbl.Filter = "客户姓名 = '" & e.Row("客户姓名") & "'"
        Else '否则根据输入内容进行模糊筛选
            Dim txt As String = "'*" & e.Text & "*'"
            tbl.Filter = "客户姓名 = '" & e.Row("客户姓名") & "' Or 产品名称 Like " & txt
        End If
    End If
End If

主题：自定义录入界面三问题,请教老师们