以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  下拉窗口问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=68940)
--  作者：hqy168168
--  发布时间：2015/5/27 20:06:00
--  下拉窗口问题
目的：在”表A“的”第一列“点开下拉窗口，在下拉窗口中勾选复选框，点击”确定“，将所选择的复选框标题值赋值给单元格。如果有多个选项，标题值之间用逗号隔开
问题：在下拉窗口中点击”确定“按钮后，并没有将勾选的标题值赋值给单元格，单元格任然是空值

先
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.foxdb

谢谢大家帮忙
--  作者：大红袍
--  发布时间：2015/5/27 20:12:00
--  
Dim val As String
For Each ct As WinForm.Control In e.Form.Controls
    If TypeOf ct Is WinForm.CheckBox Then
        Dim chk As WinForm.CheckBox = ct
        If chk.Checked = True Then
            val = val & chk.Text & ","
        End If
    End If
Next
msgbox(val)
If val IsNot Nothing Then
    val = val.Remove(val.Length - 1,1)
Else
    val = Nothing
End If
e.Form.DropDownBox.Value = val
e.Form.Close()
--  作者：hqy168168
--  发布时间：2015/5/27 20:22:00
--  
谢谢