以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  判断DropDownForm窗口打开的方式  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=136647)
--  作者：紫色幽魂
--  发布时间：2019/6/18 11:21:00
--  判断DropDownForm窗口打开的方式
怎么判断DropDownForm窗口是通过表中的列打开还是窗口中的DropDownBox控件打开
--  作者：有点甜
--  发布时间：2019/6/18 11:35:00
--  

参考 e.form.droptable

 

http://www.foxtable.com/webhelp/topics/2893.htm

 
--  作者：紫色幽魂
--  发布时间：2019/6/18 11:53:00
--  回复：（有点甜）参考 e.form.droptable htt...
还是不明白怎么做，下面这两个条件我去掉一个就没有问题，代码放在DropDownOpening里面
Dim bq As WinForm.TextBox = e.Form.Controls("标签")
Dim tb As Table = e.Form.Controls("Table1").Table

If e.Form.DropTable.Name = "无损_检测部位"
    bq.Value = "检测部位_工程选择"
    e.Form.baseform.width = 300 \'设置窗口宽度
    tb.DataSource  = DataTables("无损_工程主表")
    tb.SetColVisibleWidth("工程名称|250")
ElseIf e.Form.DropDownBox.Name = "构件计划_工程名称"
    bq.Value = "构件计划_工程名称"
    e.Form.baseform.width = 300 \'设置窗口宽度
    tb.DataSource  = DataTables("无损_工程主表")
    tb.SetColVisibleWidth("工程名称|250")
End If
--  作者：有点甜
--  发布时间：2019/6/18 11:56:00
--  

 

If e.Form.DropTable IsNot Nothing Then \'如果下拉窗口是从表中打开

 

Else  \'从窗口打开

 

End If