Private Function GetCheckListValue()
        Dim myStr As String = ""
        Dim myControl As Control
        Dim li As ListItem
        For Each myControl In Me.Controls
            If TypeOf myControl Is CheckBoxList Then
                For Each li In CType(myControl, CheckBoxList).Items
                    If li.Selected = True Then
                        myStr = myStr & "|" & li.Value
                    End If
                Next
                    End If
                Next
        Return myStr
    End Function
为什么老是取不到值,麻烦各位帮忙看一下是哪里出错了。

解决方案 »

  1.   

    给你我的方法吧!可以用的。Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            TextBox1.Text = ""
            Dim i As Integer
            For i = 0 To CheckBoxList1.Items.Count - 1
                If CheckBoxList1.Items.Item(i).Selected Then TextBox1.Text &= CheckBoxList1.Items.Item(i).Value
            Next
        End Sub
      

  2.   

    应该用checkbox吧
    checkboxlist是由好多checkbox组成的
      

  3.   

    hackate(~兰心*-*寒~ | 网站: http://www.7to.net) 
    谢谢你的回复。
    问题是我在页面中有很多的checkboxlist,我要取出已选择的值。我的思路是通过历遍页面中所有checkboxlist,然后判断出其中的值;现在的问题是我上面写的程序不知道为什么老是取不到值,是不是我写的程序有毛病?希望大家帮忙看看。
      

  4.   

    在checkboxlist绑定的时候,注意有无postback
      

  5.   

    checkboxlist是在页面绑定的,不是通过后台绑定的。