专家坐堂-Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  下拉窗体赋值的问题？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=116815)

--  作者：有点蓝
--  发布时间：2018/3/31 17:19:00
--

If tbl.Current IsNot Nothing Then
e.Form.DropDownBox.Value = tbl.Current("姓名")
Forms("某某窗口名称").controls("学校输入框控件名称").Value = tbl.Current("学校")
End If

--  作者：有点甜
--  发布时间：2018/4/1 17:38:00
--
If e.Selected Then \'如果选择了值
    Dim tbl As Table = e.form.controls("Table1").Table
    If tbl.Current IsNot Nothing Then
        Forms("申购编辑").controls("txb申购学校").Value = tbl.Current("学校")
        Forms("申购编辑").controls("txb申购学校").WriteValue
        Forms("申购编辑").controls("txb申购人部门").Value = tbl.Current("部门")
        Forms("申购编辑").controls("txb申购人部门").WriteValue
        e.Form.DropDownBox.Value = tbl.Current("姓名")
    End If
    If e.Form.DropTable IsNot Nothing Then \'如果是通过表下拉的
        e.Form.DropTable.FinishEditing()
    Else \'如果是通过窗口下拉的
        e.Form.DropDownBox.WriteValue()
    End If
End If