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

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

主题：下拉窗体赋值的问题？