RE:Llenar un dataset a partir de una matriz
Ok, muchas gracias, ya lo tengo funcionando:
En general declaraciones:
Public dttAux As DataTable = New DataTable("dttAux")
En el cuerpo del programa, donde corresponda creamos la tabla
Public Sub CrearDataTable()
' Declaracion de filas y columnas
Dim dtcolVencimiento As DataColumn
Dim dtcolImporte As DataColumn
Dim dtcolDescuento As DataColumn
Dim dtcolDescontado As DataColumn
Dim dtcolOk As DataColumn
' Columna vencimiento
dtcolVencimiento = New DataColumn
dtcolVencimiento.DataType = System.Type.GetType("System.DateTime")
dtcolVencimiento.ColumnName = "vencimiento"
dttAux.Columns.Add(dtcolVencimiento)
' Columna importe
dtcolImporte = New DataColumn
dtcolImporte.DataType = System.Type.GetType("System.Double")
dtcolImporte.ColumnName = "importe"
dttAux.Columns.Add(dtcolImporte)
' Columna descuento
dtcolDescuento = New DataColumn
dtcolDescuento.DataType = System.Type.GetType("System.Double")
dtcolDescuento.ColumnName = "descuento"
dttAux.Columns.Add(dtcolDescuento)
' Columna descontado
dtcolDescontado = New DataColumn
dtcolDescontado.DataType = System.Type.GetType("System.Double")
dtcolDescontado.ColumnName = "descontado"
dttAux.Columns.Add(dtcolDescontado)
' Columna pagado
dtcolOk = New DataColumn
dtcolOk.DataType = System.Type.GetType("System.Boolean")
dtcolOk.ColumnName = "pagado"
dttAux.Columns.Add(dtcolOk)
End Sub
La funcion de guardar los datos:
Private Function GuardarDataTable(ByVal dtrAux, ByVal vencimiento, ByVal importe, ByVal descuento, ByVal descontado, ByVal ok) As Boolean
Dim dtrRow As DataRow
dtrRow = dttAux.NewRow
dtrRow("vencimiento") = vencimiento
dtrRow("importe") = importe
dtrRow("descuento") = descuento
dtrRow("descontado") = descontado
dtrRow("pagado") = ok
dttAux.Rows.Add(dtrRow)
'mostrar los datos resultamtes en un datagrid
dtgLetras.DataSource = dttAux
dtgLetras.Refresh()
End Function
La llamada a la funcion de guardar:
If GuardarDataTable(dttAux, mcDias.SelectionStart.ToShortDateString, Val(txtC.Text), txtDescuento.Text, txtDescontado.Text, blnOk) = True Then MessageBox.Show("OK, datos en la tabla")
Muchas gracias a Marcelo por indicarme por donde tenía que ir tirando.