主题：自定义录入界面的复选问题

根据自定义录入界面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