CheckedListBox求助 Post By：2015/9/9 15:37:00 [显示全部帖子]
Dim s As String Dim l As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox1") For Each Index As Integer In l.CheckedIndices If s > "" Then s = s & "," End If s = s & l.Items(Index) Next
Forms("空滤计划管理").Controls("条件").text = s e.Form.Close
加好友 
发短信
Post By：2015/9/9 15:37:00 [显示全部帖子]
