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()
加好友 
发短信
Post By：2015/5/27 20:12:00 [显示全部帖子]
