CONSULTA DE MÊLTIPLO REGISTRO

AMORIM 19/11/2017 14:52:33
#477970
Pessoal eu tenho form 1 e o form2 o form1 tem um datagriview com checkbox o problema e que estou tentando fazer uma consulta para exibir no form2 com os checkbox marcado do form1
Public Sub PCarregadadosBaixa()
Using con As OleDbConnection = GetConnection()
Try
con.Open()
Dim sql As String = [Ô][Ô]
[ô]For Each r As DataGridViewRow In FrmFormularioDespesas.dgvListaContasApagar.Rows
For i As Integer = 0 To FrmFormularioDespesas.dgvListaContasApagar.Rows.Count - 1
If (FrmFormularioDespesas.dgvListaContasApagar.Rows(i).Cells(0).Value) Then
sql = [Ô]SELECT NomeCredor,Origem,ValorParcela,DataVencimento,CodParcela FROM tblDespesa WHERE CodParcela=[Ô] & FrmFormularioDespesas.dgvListaContasApagar.Rows(i).Cells(9).Value [ô]And where TipoLancamento=[Ô] & [Ô]Receitas[Ô]
Dim cmd As OleDbCommand = New OleDbCommand(sql, con)
Dim da As OleDbDataAdapter = New OleDbDataAdapter(cmd)
Dim dt As DataTable = New DataTable
da.Fill(dt)
dgvBaixaContas.DataSource = dt
End If
Next
Catch ex As Exception
MsgBox(ex.Message)
Finally
con.Close()
End Try
End Using
Mudar_Coluna()
End Sub
AMORIM 19/11/2017 19:58:00
#477972
KD os Metres, para o help
JABA 20/11/2017 02:33:20
#477975 
For Each row As DataGridViewRow In dgvListaContasApagar.Rows
           [txt-color=#007100][ô]Verifica se o checkbox está marcado.[/txt-color]
            If (row.Cells(0).Value = True) Then 
                [txt-color=#007100][ô]O datagridview precisa ter a mesma estrutura de colunas do outro e não pode ter sido carregado via datasource.[/txt-color]
                SeuSegundoForm.SeuSegundoDataGridView.Rows.Add(row) 
            End If
Next
Tópico encerrado , respostas não são mais permitidas
Voltar