以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  自定义录入下拉窗口  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=131156)
--  作者：恒隆君
--  发布时间：2019/2/18 23:56:00
--  自定义录入下拉窗口
自定义录入下拉窗口三
本页地址：http://www.foxtable.com/webhelp/scr/2465.htm
发现有一个缺点。
如果下拉窗口中，你不选值，关闭窗口，默认会选第一个值，输入。
这个怎么解决？

If e.Selected Then \'如果选择了值
    Dim tbl As Table = Tables("配件输入出库_Table1")
    If tbl.Current IsNot Nothing Then
        e.Form.DropDownBox.Value = tbl.Current("配件名称")
        If e.Form.DropTable IsNot Nothing Then \'如果是通过表下拉的
            e.Form.DropTable.FinishEditing()
        Else \'如果是通过窗口下拉的
            e.Form.DropDownBox.WriteValue()
        End If
    End If 
End If
--  作者：有点蓝
--  发布时间：2019/2/19 8:54:00
--  
这个是正常行为。如果不需要，把DropDownClosed代码去掉，放到下拉窗口表格的双击事件中