DropDownForm 有DropTable属性，其它的模式或独立窗口有这样的属性吗？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

只有DropDownForm 有DropTable属性

打开模式窗口前用全局变量指定需要接收数据的表名称就好了

vars("表") = "材料"

Forms("添加供应商").open

双击事件

Dim tbl As Table = Tables("添加供应商_Table1")

Dim dr As Row = Tables(vars("表")).Current

If dr IsNot Nothing Then

If Tables(vars("表")).Cols.Contains("供应商编号") Then

dr("供应商编号") = tbl.Current("供应商编号")

ElseIf Tables(vars("表")).Cols.Contains("单位编号") Then

dr("单位编号") = tbl.Current("供应商编号")

dr("往来单位") = tbl.Current("公司名称")

End If

e.Form.Close()

End If

主题：DropDownForm 有DropTable属性，其它 的模式或独立 窗口有这样的属性吗？