以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  多字段上屏  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=139708)

--  作者：有点蓝 --  发布时间：2019/8/19 21:49:00 --   If e.Selected Then \'如果选择了值     Dim tbl As Table = Tables("窗口1_Table1")     If tbl.Current IsNot Nothing Then         e.Form.DropDownBox.Value = tbl.Current("客户ID")     End If     If e.Form.DropTable IsNot Nothing Then \'如果是通过表下拉的 e.Form.DropTable.current("客户名称") = tbl.Current("客户名称")         e.Form.DropTable.FinishEditing()     Else \'如果是通过窗口下拉的         e.Form.DropDownBox.WriteValue()     End If End If