| Buscar y modificar valores de un datatable en un Dataset |
|
|
|
| Este código, busca en el indice de la tabla un valor especifíco de busqueda, si no lo encuentra, agrega una nueva fila, en caso contrario le cambia dos valores |
Dim FilaA As DataRow
Dim BciP As DataRow
'se busca en tablas de un Dataset un indice
'se le asina el resultado a un datarow
BciP = datos.Tables("t1b").Rows.Find(Me.Cip.Text)
If (BciP Is Nothing) Then 'si no lo encuentra agregar
FilaA = TablaAux.NewRow 'tablaaux es un datatable, al cual se le agrega un registro
FilaA("cip") = Me.Cip.Text
FilaA("nombre") = Me.Dcip.Text
FilaA("cantidad") = Me.Cant.Text
FilaA("precio") = Me.Precio.Text
FilaA("codigo") = Me.CodAux
FilaA("nu_pedido") = Me.NuPed.Text
FilaA("linea") = UltLinea + 1
UltLinea = FilaA("linea")
'TablaAux.Rows.Add(FilaA)
datos.Tables("t1b").Rows.Add(FilaA) 'agregamos a la tabla del dataset
Else 'en caso de que lo encuentre le cambia los datos
'datos.Tables("t1b").BeginLoadData()
BciP("cantidad") = Me.Cant.Text
BciP("precio") = Me.Precio.Text
'datos.Tables("t1b").EndLoadData()
End If |
|
| |
| Terminos de Uso |
|
1 - Copiar o Descargarse este contenido implica aceptar los terminos aqui detallados.
2 - Usted puede utilizar este contenido en sus propios programas y puede compilarlo en un programa y modificarlo a su gusto.
3 - Usted NO PUEDE redistribuir este contenido tal como se presenta aqui sin el permiso del autor original del mismo.
4 - Usted seguirá cualquier restricción adicional del copyright que el autor pudo haber puesto en la descripción del contenido.
|
|
|
