jueves, 15 de octubre de 2009

Crear una tabla temporal

El ejemplo crea una tabla temporal y muestra los valores almacenados en un datagridview.
Creamos un FORM con texbox1, textbox2, datagridview1 y un button1, en textbox1 guardaremos un valor numerico y el textbox2 un valos caracter, copiamos y pegamos el siguiente còdigo en el button1.


Private Sub Button1_Click ...

Dim tabla_temp As New DataTable
Dim valo1 As New DataColumn("Nùmero", Type.GetType("System.Int32"))
Dim valor2 As New DataColumn("Nombre", Type.GetType("System.String"))

tabla_temp.Columns.AddRange(New DataColumn() {valor1, valor2})
Dim datos As DataRow
datos = tabla_temp.NewRow
datos(0) = Convert.ToInt32(Me.TextBox1.Text)
datos(1) = Me.TextBox2.Text
DataGridView1.DataSource = tabla_temp
Me.DataGridView1.Columns(0).Width = 100
Me.DataGridView1.Columns(1).Width = 150

For Each columna As DataGridViewColumn In Me.DataGridView1.Columns
columna.SortMode = DataGridViewColumnSortMode.NotSortable
Next
Dim cellStyle As New DataGridViewCellStyle
cellStyle.Font = New Font(DataGridView1.Font.Name, DataGridView1.Font.Size, FontStyle.Bold)
Me.DataGridView1.ColumnHeadersDefaultCellStyle = cellStyle


End Sub


Ahora ejecutamos la FORM, tecleamos algunos valor en los textbox y presionamos el botòn, los datos tecleados apareceran el el datagridview.

Podemos copiar el siguiente còdigo en un botòn màs para borrar el contenido de la tabla temporal:
Try
tabla_temp.Rows.Item(DataGridView1.CurrentRow.Index).Delete()
DataGridView1.DataSource = tabla_temp
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Information)

End Try

Comparte