Datagrid , rows cell valor +1

Question

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

Answer 1

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.

Answer 2

Eu que agradeço a oportunidade de conversar com vocês ; Como a internet pode ser incrível .

---

Atenciosamente Mauricio Perroni