自定义录入下拉窗口三
本页地址：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
加好友 
发短信
Post By：2019/2/18 23:56:00 [显示全部帖子]
