none
Duvida com for RRS feed

 > 

  • Pergunta

  • Question
    Entrar para Votar
    0
    Entrar para Votar
     

    Pessoal to com essa duvida aqui, tenho dois datagrids queria pegar um valor de uma coluna de um e passar para o outro, como eu fiz abaixo se depois do for eu não colocar BSAss.Filter = "" ele só atualiza o valor em uma celula, se eu colocar o BSAss.Filter = "" ele não atualiza nenhuma, o campo cd_assessor esta nos dois grids, no que estou errado?

    For icd1 = 0 To DGcaptacao.RowCount - 1
            cd_codDG = CInt(DGcaptacao.Rows(icd1).Cells("CDASSESSORDataGridViewTextBoxColumn").Value)

            BSAss.Filter = "cd_assessor = " & cd_codDG
            DGcaptacao1.CurrentRow.Cells("Column1").Value = 1 'DGcaptacao.CurrentRow.Cells("Column6").Value

        Next
        BSAss.Filter = ""


    terça-feira, 18 de dezembro de 2012 14:12
    |

Respostas

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    veja se isto te ajuda. crie um novo form com dois datagrid coloque dois botões no form

    no botão 1

            Me.DataGridView1.SelectionMode = DataGridViewSelectionMode.FullRowSelect
            Me.DataGridView1.ColumnCount = 3
            Me.Cursor = Cursors.AppStarting
            For i As Integer = 0 To 3
                Me.DataGridView1.Rows.Add(New Object() {"A", "B" & i, "C" & i})
            Next
            Me.DataGridView2.ColumnCount = Me.DataGridView1.ColumnCount
            Me.Cursor = Cursors.Default

    e no botão 2

            Try
                Dim rowToDelete As Int32 = DataGridView1.Rows.GetFirstRow( _
                                           DataGridViewElementStates.Selected)
                Dim rowData As Object()

                Me.DataGridView1.SelectAll()

                For Each row As DataGridViewRow In Me.DataGridView1.SelectedRows
                    rowData = New Object(row.Cells.Count - 1) {}

                    Dim i As Integer
                    For i = 0 To rowData.Length - 1
                        rowData(i) = row.Cells(i).Value
                    Next

                    Me.DataGridView2.Rows.Add(rowData)
                Next


            Catch ex As Exception

            End Try

    sexta-feira, 18 de janeiro de 2013 01:29
    |