- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 若当前窗口中，有“入库表”，且已打开，则... (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=136738)
-- 发布时间：2019/6/20 11:02:00
-- 若当前窗口中，有“入库表”，且已打开，则...
若当前窗口中，有“入库表”，且已打开，则
"当前窗口".Cols("入库筐架").DropForm = "筐架下拉窗口"
求这段代码该怎么写？
-- 发布时间：2019/6/20 11:08:00
--
参考代码
If forms.ActiveForm IsNot Nothing Then
msgbox(123)
For Each c As object In Forms.activeform.controls
If Typeof c Is winform.Table Then
msgbox(c.Table.DataTable.name)
End If
Next
End If
-- 发布时间：2019/6/20 16:31:00
-- 回复：（有点甜）参考代码 If forms.ActiveF...
If forms.ActiveForm IsNot Nothing Then
For Each c As object In Forms.activeform.controls
If Typeof c Is winform.Table Then
c.Cols("入库筐架").DropForm = "筐架下拉窗口"
End If
Next
End If
这段放在项目属性afterload中了，但是，点击相应的入库筐架，还是没有对应的下拉窗口啊？
求帮助，谢谢！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:ceshi0620.zip |
-- 发布时间：2019/6/20 16:45:00
--
currentTableChanged事件，写代码，如
If CurrentTable.Cols.Contains("入库筐架") Then
CurrentTable.Cols("入库筐架").DropForm = "筐架下拉窗口"
End If
-- 发布时间：2019/6/20 16:54:00
-- 回复：（有点甜）currentTableChanged事件，写代码，如...
ok了，谢谢老师