Ver Mensaje Individual
  #6 (permalink)  
Antiguo 26/05/2010, 12:07
patitox04
 
Fecha de Ingreso: octubre-2008
Mensajes: 22
Antigüedad: 15 años, 6 meses
Puntos: 0
Respuesta: Eliminar un Row en un DataGrid Windows Form

Yeiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii ya me salio

jajajajajaja disculpen la efusividad pero es que ya me tenia arta T_T.

Posteo aqui la solución para aquel pobre desarrollador (como yo) se llegue a topar con tremenda bronca.

El procedimiento a seguir es:
  1. Consultar en el archivo y listar en la pantalla los resultados
  2. El usuario selecciona el articulo y da clic en el botón Eliminar
  3. El sistema pregunta si esta seguro de eliminar el articulo, el usuario da OK
  4. El sistema Elimina el articulo de la tabla (almacenando en una variable el dato para eliminarlo en la BD) [ESTE ES LO NUEVO DE MI CODIGO]
  5. El sistema obtiene el valor almacenado en una variable y lo elimina del archivo
  6. FIN =D

El cacho de código es este:
Código:
 'Metodo que elimina el registro del DataGrid

    Private Sub elimina_Registro(ByVal lnRenglon As Integer)
        Dim tablaTemporal As DataTable
        Dim rowsTemporales As DataRowCollection

        tablaTemporal = CType(Me.grdArticulos.DataSource, DataTable)
        rowsTemporales = tablaTemporal.Rows

        'Se verifica que tenga datos la coleccion
        If rowsTemporales.Count() <> 0 Then
            rowsTemporales.RemoveAt(lnRenglon)
        End If
    End Sub 
Mi código quedaría de la siguiente forma (lo negrito es lo nuevo):
Código:
 Private Sub elimina_Renglon()
        Dim datos As New DataSet
        Dim lcToma, _
            lcArticulo, _
            lcCantidad As String
        Dim lcOpcion, _
            lnRenglon As Integer

        lnRenglon= Me.grdArticulos.CurrentCell.RowNumber
        lcToma = grdArticulos.Item(lnRenglon, 0).ToString()
        lcArticulo = grdArticulos.Item(lnRenglon, 1)
        lcCantidad = grdArticulos.Item(lnRenglon, 2)
        lcOpcion = MsgBox("¿Está seguro que desea borrar el registro?" + _
                        vbCrLf + vbCrLf + _
                        "Artículo " + lcArticulo + vbCrLf + _
                        "Cantidad " + lcCantidad + vbCrLf + _
                        "Toma " + lcToma, _
                        4 + 32 + 256)

        If lcOpcion = vbYes Then 'Si es el botón Si
            elimina_Registro(lnRenglon)
            elimina_Articulo(lcToma)
        End If
    End Sub 
Los demas metodos no fueron modificados.

La solución la encontré en esta pagina: [URL="http://msdn.microsoft.com/en-us/library/teb6sba6(vs.71).aspx"]DataRowCollection.RemoveAt Method[/URL]

Espero le entiendan ya que si me esmeré en explicarlo XD.

Gracias por su ayuda y tiempo compañeros!!!!!! LOV YA!!!!!

Última edición por patitox04; 26/05/2010 a las 12:14