'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