主题：设计下拉窗口后预览不了

是预览不了的。因为窗口类型为"DropDownForm“，想预览改其他类型

就是按帮助那样做就可以了

1、将订单表的KeyPressEdit事件代码设置为：

If e.Col.Name = "客户ID" Then '如果编辑的是客户ID列
    If e.Col.DroppedDown = False '且下拉窗口没有打开
        e.Col.OpenDropDown() '打开下拉窗口
    End If
End If

 

5、最后在项目事件AfterOpenProject事件中加入代码：

Tables("订单").Cols("客户ID").DropForm = "窗口1"

2、将订单表的ChangeEdit事件代码设置为：

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

你这步有没有做，做了应该会有的

下拉窗口那里也有个筛选的。你看清楚帮助。只是你这个问题是没有在这个事件上写

所以说你这个问题是ChangeEdit 事件的代码没写