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:
- Consultar en el archivo y listar en la pantalla los resultados
- El usuario selecciona el articulo y da clic en el botón Eliminar
- El sistema pregunta si esta seguro de eliminar el articulo, el usuario da OK
- 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]
- El sistema obtiene el valor almacenado en una variable y lo elimina del archivo
- 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!!!!!