Datos duplicados en datagrid vb.net

[darco1103]

HOLA ESTOY TRABAJANDO CON VISUAL STUDIO 2008 Y PASA LO SIGUIENTE:
TENGO DOS DATAGRID, EN EL DATAGRID1 CARGO LOS DATOS DE UNA TABLA EN MYSQL Y EN EL DATAGRID2 AGREGO LOS DATOS SELECCIONADOS DEL DATAGRID1, ÉSTO LO HAGO EN EL EVENTO 'CELLCONTENTDOUBLECLICK'.

PERO LO QUE QUIERO HACER ES QUE EL DATAGRID2 RECIVA SOLAMENTE UN SOLO REGISTRO CON EL MISMO NOMBRE, OSEA, QUE NO LO DUPLIQUE. QUIERO QUE ME APAREZCA UN MENSAJE QUE DIGA: "ÉSTE DATO YA FUÉ AGREGADO".

EJEMPLO:
DATAGRID1
CARNE ASADA
PECHUGA A LA PLANCHA
CARNE EN SALSA

DATAGRID2
CARNE ASADA

En éste ejemplo cuando trate de dar dobleclick en el datagrid1 a 'CARNE ASADA', aparézca el mensaje porque el registro ya existe en el datagrid2.

Espero haberme eplicado bien. Gracias!

[Aquaventus]

Buenas tardes Darco1103, te paso un code en c# ya lo conviertes en vb. Saludos!

esto tiene que ir al momento que le das agregar

Código c#:

bool existe = false;
            foreach(DataGridViewRow row in datagridview2.Rows){
                if( Convert.ToString(row.Cells[0].Value).Equals(datagridview1.ActiveRow.Cells[0].Text)){
                    existe = true;
                }
            }
            if (existe == true)
            {
                MessageBox.Show("El producto ya fue ingresado", "GRYPHOS");
            }
            else
            {
                dgCombo.Rows.Add(dgProductos.ActiveRow.Cells[0].Text);
            }
 

[TECKNOCK]

Hazlo en el mismo evento CellContentDoubleClick. Supongamos que el nombre de tu columna es Tipo_Carne, recorres todo el DataGrid2 buscando el dato en esa columna y asignas SI o NO a una variable FLAG* para saber si se puede agregar o no.

Aqui te dejo el codigo:

Código vb:

Private Sub DataGrid1_CellContentDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGrid1.CellContentDoubleClick
'Iniciamos nuestro FLAG en SI
Dim Agregar As String = "SI"
'Buscamos en todas las FILAS del DataGrid2
For Each FILA As DataGridViewRow In DataGrid2.Rows
If FILA.Cells("Tipo_Carne").Value = DataGrid1.CurrentCell.Value Then
Agregar = "NO"
Exit For
End If
Next
'Si el FLAG esta en SI agregamos la fila del DAtaGrid1 en el DataGrid2
If Agregar = "SI" Then
DataGrid2.Rows.Add(DataGrid1.CurrentRow)
Else
MsgBox("Este dato ya fue agregado.")
End If
End Sub
 

* Variable FLAG: Es una variable que sirve como un indicador para decidir cuando debe ocurrir una accion.

[darco1103]

Buenos dias... agradézco por sus respuestas, he llegado al siguiente código, pero todavia no me funciona, me puse a depurar el programa pero no me quiere entrar al condicional que tiene el mensaje... no sé si lo tengo bien escrito...help me!

NOTA: El datagrid1 se llama grilla_menu y el datagrid2 se llama grilla_dia

Código vb:

Private Sub grilla_menu_CellContentDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles grilla_menu.CellContentDoubleClick
        Dim k As String
        Dim tota, toot As Integer
 
        ' Se define una lista temporal de registro seleccionados
        Dim rowSelected As New List(Of DataGridViewRow)()
 
        ' Se agrega el campo a la lista temporal
        rowSelected.Add(grilla_menu.CurrentRow)
 
        ' Se agrega el item seleccionado a la grilla de destino
        Dim existe = False
        For Each row As DataGridViewRow In rowSelected
            If Convert.ToString(row.Cells("Nombre Menu").Value).Equals(grilla_menu.CurrentRow) Then
                existe = True
                If (existe = True) Then
                    MsgBox("Éste menú ya fué agregado", MsgBoxStyle.OkOnly, "INFORMACIÓN")
                Else
                End If
 
            End If
            grilla_dia.Rows.Add(New Object() {False, row.Cells("Nombre Menu").Value, row.Cells("Valor").Value})
 
            toot = row.Cells("Valor").Value
            tota = TextBox1.Text
 
            k = (toot + tota)
 
            TextBox1.Text = k
        Next
        
    End Sub
 

[Aquaventus]

Parece que te falta añadirle el valor aqui :


For Each row As DataGridViewRow In rowSelected
If Convert.ToString(row.Cells("Nombre Menu").Value).Equals(grilla_menu.CurrentRow.Cell("Nombre Menu").Value) Then

xq alli debes compararlo el valor de la celda del grilla_dia con el mismo valor de la celda del grilla_menu y no con la fila. Saludos!

[Aquaventus]

Deseas agregar datos de grilla_menu a grilla_dia ? o viceversa?

[Aquaventus]

Pruebalo de esta manera...

Código vb.net:

Private Sub grilla_menu_CellContentDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles grilla_menu.CellContentDoubleClick
        Dim k As String
        Dim tota, toot As Integer
        
        ' Se agrega el item seleccionado a la grilla de destino
        Dim existe = False
 
        For Each row As DataGridViewRow In grilla_dia.Rows
            If Convert.ToString(row.Cells("Nombre Menu").Value).Equals(grilla_menu.CurrentRow.Cells("Nombre Menu").Value) Then
                existe = True
            End If
            If (existe = True) Then
                    MsgBox("Éste menú ya fué agregado", MsgBoxStyle.OkOnly, "INFORMACIÓN")
            Else
grilla_dia.Rows.Add(grilla_menu.CurrentRow)
 
            toot = grilla_menu.CurrentRow.Cells("Valor").Value
            tota = TextBox1.Text
 
            k = (toot + tota)
 
            TextBox1.Text = k
                End If
            
        Next
        
    End Sub
 

[darco1103]

Gracias Aquaventus, pero de esa manera no quiere entrar al For Each y no agrega nada.

Voy a partir desde cero otra véz:
Con el siguiente código el programa me agrega el registro del Datagrid1 que se llama "grilla_menu" al Datagrid2 que se llama "grilla_dia":

Código vb:

Private Sub grilla_menu_CellDoubleClick1(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles grilla_menu.CellDoubleClick
 
        Dim k As String
        Dim tota, toot As Integer
 
        ' Se define una lista temporal de registro seleccionados
        Dim rowSelected As New List(Of DataGridViewRow)()
 
        ' Se agrega el campo a la lista temporal
        rowSelected.Add(grilla_menu.CurrentRow)
 
        ' Se agrega el item seleccionado a la grilla de destino
'Las dos columnas de grilla_dia se llaman "nombre" y "valor"
        For Each row As DataGridViewRow In rowSelected
            grilla_dia.Rows.Add(New Object() {row.Cells("nombre").Value, row.Cells("valor").Value})
 
'y por último sumo la columna "valor" de grilla_dia y arrojo el resultado en un textbox llamado "VALOR" 
            toot = row.Cells("valor").Value
            tota = VALOR.Text
 
            k = (toot + tota)
 
            VALOR.Text = k
        Next
 
    End Sub
 

Si sabes de otra forma de agregar los registros al datagrid2 y que sea más fácil de controlar los datos duplicados te agradézco que me la enseñes.
Las columnas que necesito de grilla_menu se llaman "nombre" y "valor"

[darco1103]

Te lo agradecería mucho!

[Aquaventus]

haber darco1103 lo que estas haciendo alli es obtener la fila seleccionada, agregarlo en una lista(que no le veo la utilidad.... porque solo va a almacenar 1 fila siempre al hacer double_click), luego recorres tu "lista"(de 1 item... que no tiene sentido recorrerlo...) y luego agregarlo sin comparar que ya existe...
Se me hace raro que no realize lo que pides el codigo que te pase... en todo caso enviame tu proyecto con bd a mi correo para construir el codigo y pasartelo. Saludos.

PDT: mi correo esta debajo de mi avatar en la mariposa de msn.

[TECKNOCK]

Prueba el código que te pasé.... te garantizo que funciona.

O quizá estás haciendo algo mal en otra parte de tu código.

[Aquaventus]

claro concuerdo con tecknock... solo que el modifica y lo hace a su manera... lo cual esta bien para que aprenda... pero no sigue una logica correcta a lo que esta pidiendo... en lo que realiza en su construccion de codigo... alli tienes 2 ejemplos de como hacerlo de manera correcta. Saludos!

[Aquaventus]

Hola draco1103! Solucionado y probado en tu proyecto, este es el codigo :

Código vb.net:

Dim existe = False
 
        For Each row As DataGridViewRow In grilla_dia.Rows
            If Convert.ToString(row.Cells(0).Value).Equals(grilla_menu.CurrentRow.Cells(2).Value) Then
                existe = True
            End If
        Next
        If (existe = True) Then
            MsgBox("Éste menú ya fué agregado", MsgBoxStyle.OkOnly, "INFORMACIÓN")
        Else
            grilla_dia.Rows.Add(grilla_menu.CurrentRow.Cells(2).Value, grilla_menu.CurrentRow.Cells(3).Value)
 
            toot = grilla_menu.CurrentRow.Cells("Valor").Value
            tota = VALOR.Text
 
            k = (toot + tota)
 
            VALOR.Text = k
        End If
 

Saludos!

[darco1103]

Gracias Aquaventus...sos mi ídolo!

[Aquaventus]

Por cierto a lo del redondeo es:
'2 es la cantidad de numeros despues del punto redondeado
Math.Round(TUDECIMAL,2)