COMO PUEDO OBTENER UNA CONDICIÓN PARA QUE 2 DATAGRIDVIEW NO SEAN REPETIDOS??

Question

BUEN DIA EXPERTOS,... QUISIERA PEDIRLE DE FAVOR SI ME PUEDEN AYUDAR EN ESTE PROBLEMA QUE TENGO.

TENGO 2 DATAGRIDVIEW (COMO ESTA EN LA FOTO) EN LA CELDA(13) QUE ES CAMPO1 ES MI CODIGO DE MATERIAL QUE ESTA EN STRING EN LA BASE DE DATOS...EN EL PRIMER DATAGRIDVIEW CUANDO YO CAMBIO LA PRIMERA LETRA Y ACTUALIZO SI PUEDO GRABAR ,.. PERO YO QUISIERA QUE SEA POR LA DIFERENCIA DE LA PRIMERA LETRA DE LA PARTE IZQUIERDA POR EJEMPLO EL NUMERO 7 AUNQUE ESTA DIFERENTE  DEL OTRO DATAGRIDVIEW IGUAL NO SE PODIA GRABAR PERO CUANDO CAMBIE AL 8 QUE POR LA LETRA M SI SE PUDO GRABAR ESTE ES MI CODIGO (COMO VAN A PODER APRECIAR ESTOY PONIENDO "CCHAR" PORQUE CON CSTR AUNQUE SEA IGUAL O DIFERENTE IGUAL ME GRABA :( ALGUNA AYUDA PORFAVOR GRACIAS....

 If CChar(dgMateriales.CurrentRow.Cells(13).Value) & txtCodigoProd.Text & txtCodSemi.Text = CChar(dgMaterialesIgualdad.CurrentRow.Cells(13).Value) & txtDato1.Text & txtDato2.Text Then
            MessageBox.Show("NO SE PUEDE GRABAR LO SENTIMOS :(")
        Else
            Dim material As SqlCommand = New SqlCommand("INSERT INTO ACTIVIDAD_MATERIALES_PRODUCCION VALUES(@1,@2,@3,@4,@5,@6,@7,@8,@9)", conexion)
            conexion.Open()
            Dim fila3 As DataGridViewRow = New DataGridViewRow()
            Try
                For Each fila3 In dgMateriales.Rows
                    material.Parameters.Clear()
                    material.Parameters.AddWithValue("@1", Convert.ToString(fila3.Cells(9).Value))
                    material.Parameters.AddWithValue("@2", Convert.ToString(fila3.Cells(10).Value))
                    material.Parameters.AddWithValue("@3", Convert.ToString(fila3.Cells(12).Value))
                    material.Parameters.AddWithValue("@4", Convert.ToDecimal(fila3.Cells(5).Value))
                    material.Parameters.AddWithValue("@5", Convert.ToString(fila3.Cells(7).Value))
                    material.Parameters.AddWithValue("@6", Convert.ToString(fila3.Cells(13).Value))
                    material.Parameters.AddWithValue("@7", Convert.ToString(fila3.Cells(3).Value))
                    material.Parameters.AddWithValue("@8", Convert.ToString(fila3.Cells(2).Value))
                    material.Parameters.AddWithValue("@9", Convert.ToString(fila3.Cells(6).Value))
                    material.ExecuteNonQuery()
                Next
                MessageBox.Show("Actividad ")
            Catch ex As Exception
                MessageBox.Show("error ")
            Finally
                conexion.Close()
            End Try
        End If

Answer 1

Buen dia Expertos, 

Quisiera pedirle su ayuda para resolver este problema, ... tengo 2 datagridview ,...(dgMateriales y dgMaterialesIgualdad) y aunque son iguales los datos siempre me esta grabando, este es el codigo que tengo... 

        

       If dgMateriales.CurrentRow.Cells(3).Value = dgMaterialesIgualdad.CurrentRow.Cells(3).Value Then
            MessageBox.Show("NO SE PUEDE GRABAR")

        Else
            Dim material As SqlCommand = New SqlCommand("INSERT INTO ACTIVIDAD_MATERIALES_PRODUCCION VALUES(@1,@2,@3,@4,@5,@6,@7,@8,@9)", conexion)
        End If

si alguien por ahi tiene una idea porfavor,..

gracias.

Answer 2

BUEN DIA EXPERTOS,.. ESTOY DESARROLLANDO UN PROGRAMA EN VB.NET 2012

TENGO 2 DATAGRIDVIEW QUE NECESITO COMPRAR SU COLUMA 3 POR EJEMPLO LA COLUMNA 3 QUE SEA NOMBRE DE PAISES:

dgMateriales: dgMaterialesIgualdad:

COLUMNA3(PAISES)                        COLUMNA3(PAISES)

PERU PERU

ARGENTINA ARGENTINA

BRAZIL BRAZIL

.... COMO LAS COLUMNAS CON IGUALES EN LOS 2 DATAGRIDVIEW ENTONCES NO SE PUEDE GRABAR ...PERO SI ALGUN DATO ES DIFERENTE COMO:

dgMateriales: dgMaterialesIgualdad:

COLUMNA3(PAISES)                        COLUMNA3(PAISES)

PERU PERU

URUGUAY ARGENTINA

BRAZIL BRAZIL

ENTONCES COMO AQUI HAY UN NOMBRE DIFERENTE EN LA LINEA2 ENTONCES SE DEBE GRABAR .... YO LO HICE DE LA SIGUIENTE MANERA PERO SE QUE ESTA MAL PORQUE SOLO SERVIRIA PARA 3 LINEAS Y SI SON MAS SE DEBE USAR EL FOR EACH O EL FOR  .... ALQUIEN QUE ME PUEDA HECHAR UNA MANO PORFA LE AGRADECERIA.

Try
            If dgMateriales.Rows(0).Cells(3).Value & txtCodigoProd.Text & txtCodSemi.Text = dgMaterialesIgualdad.Rows(0).Cells(3).Value & txtDato1.Text & txtDato2.Text And
                dgMateriales.Rows(1).Cells(3).Value & txtCodigoProd.Text & txtCodSemi.Text = dgMaterialesIgualdad.Rows(1).Cells(3).Value & txtDato1.Text & txtDato2.Text And
                dgMateriales.Rows(2).Cells(3).Value & txtCodigoProd.Text & txtCodSemi.Text = dgMaterialesIgualdad.Rows(2).Cells(3).Value & txtDato1.Text & txtDato2.Text Then
                MessageBox.Show("NO SE PUEDE GRABAR MATERIALES DEL PRODUCTO")
            Else
                Dim material As SqlCommand = New SqlCommand("INSERT INTO ACTIVIDAD_MATERIALES_PRODUCCION VALUES(@1,@2,@3,@4,@5,@6,@7,@8,@9)", conexion)
                conexion.Open()
                Dim fila3 As DataGridViewRow = New DataGridViewRow()
                Try
                    For Each fila3 In dgMateriales.Rows
                        material.Parameters.Clear()
                        material.Parameters.AddWithValue("@1", Convert.ToString(fila3.Cells(9).Value))
                        material.Parameters.AddWithValue("@2", Convert.ToString(fila3.Cells(10).Value))
                        material.Parameters.AddWithValue("@3", Convert.ToString(fila3.Cells(12).Value))
                        material.Parameters.AddWithValue("@4", Convert.ToDecimal(fila3.Cells(5).Value))
                        material.Parameters.AddWithValue("@5", Convert.ToString(fila3.Cells(7).Value))
                        material.Parameters.AddWithValue("@6", Convert.ToString(fila3.Cells(13).Value))
                        material.Parameters.AddWithValue("@7", Convert.ToString(fila3.Cells(3).Value))
                        material.Parameters.AddWithValue("@8", Convert.ToString(fila3.Cells(2).Value))
                        material.Parameters.AddWithValue("@9", Convert.ToString(fila3.Cells(6).Value))
                        material.ExecuteNonQuery()
                    Next
                    MessageBox.Show("MATERIALES DEL PRODUCTO GUARDADOS")
                Catch ex As Exception
                    MessageBox.Show("ERROR")
                Finally
                    conexion.Close()
                End Try
             End If

Catch ex As Exception
            MessageBox.Show("ESTOS MATERIALES YA ESTAN GUARDADOS")

End Try