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

  • Pregunta

  • 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

    • Cambiado Enrique M. Montejo viernes, 27 de abril de 2018 6:54 Pregunta relacionada con controles de Windows Forms.
    martes, 24 de abril de 2018 17:20

Todas las respuestas

  • 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.

    miércoles, 25 de abril de 2018 15:53
  • 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

    jueves, 26 de abril de 2018 16:27