主题：checklsitbox问题

乱掉指什么？我这样测试没问题

Dim s As String
Dim ckl As WinForm.CheckedListBox = e.Sender
Dim k As Integer
For i As Integer = 0 To ckl.Items.count - 1 '获取已经勾选的项目
    If e.Index = i Then
        If e.Checked = True Then
            s=  s & ckl.Items(i)  & "|" & ckl.Items(i).length*27 & "|"
           
        End If
    Else
        If ckl.GetItemChecked(i) Then
           
            s=  s & ckl.Items(i)  & "|" & ckl.Items(i).length*27 & "|"
        End If
    End If
Next

If s<>"" Then
    e.Form.Controls("textbox1").value=s.SubString(0,s.length-1)
Else
    e.Form.Controls("textbox1").value=s
End If