以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  自定义录入界面的复选问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=20242)

--  作者:foxgirl
--  发布时间:2012/6/2 12:21:00
--  自定义录入界面的复选问题

根据自定义录入界面4 设计了这个窗口,请问:

1、Table控件的DoubleClick事件代码设置是这样的,怎么改比较好呢,我觉得不应该在DoubleClick这个位置写代码,应该是勾选以后选中值~请问那个代码写在哪里比较好呢

Forms("窗口1").DropDownBox.CloseDropDown()

2、窗口的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("一级分类")
        Tables("预算").Current("客户信息_二级分类") = tbl.Current("二级分类")
     End If
    e.Form.DropDownBox.CloseDropDown()
End If

[此贴子已经被作者于2012-6-2 12:29:34编辑过]

--  作者:狐狸爸爸
--  发布时间:2012/6/4 9:22:00
--  

参考:

 

http://www.foxtable.com/help/topics/2478.htm

 


--  作者:foxgirl
--  发布时间:2012/6/6 14:12:00
--  
还是不会,怎样写选中复选框的代码呢?