两种起简单的全选的方法(DataList,GridView)

    'Protected Sub btnSendMail_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSendMail.Click

    '    For Each row As DataListItem In dlMerc.Items

    '        If row.ItemType = ListItemType.Item Or row.ItemType = ListItemType.AlternatingItem Then

    '            Dim chkSelect As CheckBox = row.FindControl("chbSelectUser")

    '            If Not IsNothing(chkSelect) Then

    '                If chkSelect.Checked Then

    '                    'Response.Write(Me.dlMerc.DataKeys(row.ItemIndex).ToString() + "<br/>")

    '                End If

    '            End If

    '        End If

    '    Next

    '    sbBindData()

    'End Sub

    'Protected ReadOnly Property prsUser() As String

    '    Get

    '        Dim vsUserID As String = String.Empty

    '        For Each voRow As GridViewRow In gvUser.Rows

    '            If voRow.RowType = DataControlRowType.DataRow Then

    '                Dim rdbSelectUser As RadioButton = CType(voRow.FindControl("rdbSelectUser"), RadioButton)

    '                If rdbSelectUser.Checked Then

    '                    vsUserID = gvUser.DataKeys(voRow.RowIndex).Value.ToString()

    '                End If

    '            End If

    '        Next

    '        Return vsUserID

    '    End Get

    'End Property