Excluir registros selecionados no DataGrid

[Ilano 0]

Olá pessoal,Eu coloquei num DataGrid um template e neste foi jogado um CheckBox. Até aí tudo bem, o problema está em fazer com q eu exclua apenas os registros q foram selecionados no data grid, ou seja, o datagrid será percorrido e executará um delete apenas naqueles itens em q o checkbox esteja selecionado.Tenei fazer um teste para somar os itens selecionados:

Public Sub Seleciona(ByVal pControles As System.Web.UI.ControlCollection) ' Declaração da variáveis Dim vlControle As System.Web.UI.Control Dim I As Integer ' Percorre todos os controles da coleção de controles informada For Each vlControle In pControles ' Teste para controle CheckBox If vlControle.GetType Is GetType(WebControls.CheckBox) Then CType(vlControle, WebControls.CheckBox).Checked = False End If ' Chamada recursiva da função I = I + 1 Next LbTotal.Text = IEnd Sub

Só q ainda não é isso! Mas sei q está perto, será q vcs poderiam me dar uma sugestão?Grato,Ilano.

[Ilano 0]

Descobri!!!! Se precisarem, aqui está a solução:

Protected Sub BtnExcluir_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnExcluir.Click Dim SQL As New System.Text.StringBuilder Dim Ds As New Data.DataSet Dim Cm As New SqlCommand Dim Cx As New SqlConnection Dim Da As New SqlDataAdapter Dim A As Integer Conexao = DropUnidades.SelectedValue 'Pega o nome da base de dados Cx.ConnectionString = ConfigurationSettings.AppSettings("cStrConexao") & Conexao For Each item As DataGridItem In Me.DataGrid1.Items If item.ItemType = ListItemType.Item OrElse item.ItemType = ListItemType.AlternatingItem Then Dim chk As CheckBox = DirectCast(item.FindControl("CheckBox1"), CheckBox) If chk.Checked Then Me.LbProf.Text = item.Cells(1).Text Me.LbCurso.Text = item.Cells(2).Text SQL.Append("DELETE Tb_Professores WHERE Prof_Matricula = " & LbProf.Text & " AND Cur_Codigo = " & LbCurso.Text) Cx.ConnectionString = ConfigurationSettings.AppSettings("cStrConexao") & Conexao Cm.Connection = Cx Cm.CommandText = SQL.ToString Cx.Open() Cm.ExecuteNonQuery() Cx.Close() Me.LbProf.Text = "" End If End If Next PovoaProfessores() End Sub