以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  单击Table, 多列调用下拉窗口的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=19648)

--  作者:sloyy
--  发布时间:2012/5/17 0:27:00
--  单击Table, 多列调用下拉窗口的问题

 

折腾了一晚上,搞定了双击多列调用下拉窗口的问题,代码如下:

DropDownClosed

If e.Selected Then \'如果选择了值
    Dim tbl As Table = Tables("维修项目下拉窗_Table1")
    If tbl.Current IsNot Nothing Then
        e.Form.DropDownBox.Value = tbl.Current("维修项目")
        Tables("维修项目表").Current("性质") = tbl.Current("性质")
        Tables("维修项目表").Current("工时费") = tbl.Current("工时费")
    End If
    e.Form.DropDownBox.CloseDropDown()
End If


图片点击可在新窗口打开查看此主题相关图片如下:2.gif
图片点击可在新窗口打开查看

 

现在我想用单击调用下拉窗口,填入多列数据,结果怎么都调试不出,代码该写在哪?怎么写?


--  作者:狐狸爸爸
--  发布时间:2012/5/17 7:58:00
--  

设置在Table的Cilck事件中。


--  作者:sloyy
--  发布时间:2012/5/17 8:56:00
--  

按你说的,设置在table 的click事件里,结果出现错误 


图片点击可在新窗口打开查看此主题相关图片如下:3.gif
图片点击可在新窗口打开查看

 

,该改成什么?


--  作者:狐狸爸爸
--  发布时间:2012/5/17 9:10:00
--  
e.Form 改为: Forms("窗口名")
[此贴子已经被作者于2012-5-17 9:10:35编辑过]

--  作者:sloyy
--  发布时间:2012/5/17 9:15:00
--  
调试成功了,谢谢狐狸爸爸