none
Datagrid , rows cell valor +1 RRS feed

  • Pergunta

  • Pessoal , boa tarde preciso pegar um valor célula numa roll do data grid e somar +1 sempre que clicado na inserção do ( ITEM ).

    alguém tem fácil ai pra me ajudar. 

            datagridprodutoscliente.Rows.Add(datagridprodutoscliente.Rows.Count + 1, comboprodutos.Text, " ", txtquantidade.Text, txttipo.Text)

    escrevi o codigo acima

    mas o item esta sendo preechido conforme a row que inicia em 1

    alguem no help rapido ?

    Na real o codigo tem que ler o item da celula 1 e somar +1 porque quando alguem deletar ele vai trocar o valor .


    Atenciosamente Mauricio Perroni

    Escrevi este código funciona mais eu não gosto de gambiarra .

        Dim i = datagridprodutoscliente.Rows.Add

            With datagridprodutoscliente
                .Rows(i).Cells("Item").Value = datagridprodutoscliente.Rows.Count.ToString - 2 + 1
                .Rows(i).Cells("Produto").Value = comboprodutos.Text
                .Rows(i).Cells("Qtd").Value = txtquantidade.Text
                .Rows(i).Cells("Tipo").Value = txttipo.Text
            End With

    Fiz outra coisa ficou menos desajeitado

       Dim C = datagridprodutoscliente.Rows.Add

            Dim X As Integer = 0
            TextBox1.Text = datagridprodutoscliente.RowCount - 2
            X = TextBox1.Text + 1


            With datagridprodutoscliente
                .Rows(C).Cells("Item").Value = X + 1
                '  .Rows(i).Cells("Item").Value = datagridprodutoscliente.Rows.Count.ToString - 2 + 1
                .Rows(C).Cells("Produto").Value = comboprodutos.Text
                .Rows(C).Cells("Qtd").Value = txtquantidade.Text
                .Rows(C).Cells("Tipo").Value = txttipo.Text
            End With

    Agora sim

    Acertei o código sozinho eu mesmo

                   Dim C = datagridprodutoscliente.Rows.Add

            Dim X As Integer = 0
            Dim Y As String
            Y = datagridprodutoscliente.RowCount - 2
            X = y + 1

            With datagridprodutoscliente
                .Rows(C).Cells("Item").Value = X + 1
                .Rows(C).Cells("Produto").Value = comboprodutos.Text
                .Rows(C).Cells("Qtd").Value = txtquantidade.Text
                .Rows(C).Cells("Tipo").Value = txttipo.Text
            End With

        End Sub


    quinta-feira, 15 de março de 2018 17:45

Respostas

  • Boa tarde, Mauricio Perroni. Tudo bem?

    Obrigado por usar o fórum MSDN.

    Que bom que conseguiu resolver teu problema.

    Atenciosamente,

    Filipe B de Castro

    Esse conteúdo é fornecido sem garantias de qualquer tipo, seja expressa ou implícita

    MSDN Community Support

    Por favor, lembre-se de Marcar como Resposta as postagens que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

    sexta-feira, 16 de março de 2018 14:41
    Moderador

Todas as Respostas

  • Boa tarde, Mauricio Perroni. Tudo bem?

    Obrigado por usar o fórum MSDN.

    Que bom que conseguiu resolver teu problema.

    Atenciosamente,

    Filipe B de Castro

    Esse conteúdo é fornecido sem garantias de qualquer tipo, seja expressa ou implícita

    MSDN Community Support

    Por favor, lembre-se de Marcar como Resposta as postagens que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

    sexta-feira, 16 de março de 2018 14:41
    Moderador
  • Eu que agradeço a oportunidade de conversar com vocês ; Como a internet pode ser incrível .

    Atenciosamente Mauricio Perroni

    sexta-feira, 16 de março de 2018 23:05