以文本方式查看主题

-  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