Besoup
Mar 21st, 2008, 09:40 AM
Using a datatable bound to my datagrid I am wondering how to resize the datagrid's columns.
This is the code I am using:
Private Sub frmMovement_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
CreateDT()
DataGrid1.DataSource = ds.Tables("Movements")
txtFrom.Focus()
End Sub
Private Sub CreateDT()
dtMovements = New DataTable("Movements")
'creates Seq column in datatable
Dim cSeq As DataColumn = New DataColumn("Seq")
cSeq.DataType = Type.GetType("System.Int16")
dtMovements.Columns.Add(cSeq)
'creates From column in datatable
Dim cFrom As DataColumn = New DataColumn("From")
cFrom.DataType = Type.GetType("System.String")
dtMovements.Columns.Add(cFrom)
'creates Scancode column in datatable
Dim cScanCode As DataColumn = New DataColumn("ScanCode")
cScanCode.DataType = Type.GetType("System.String")
dtMovements.Columns.Add(cScanCode)
'creates To column in datatable
Dim cTo As DataColumn = New DataColumn("To")
cTo.DataType = Type.GetType("System.String")
dtMovements.Columns.Add(cTo)
'creates Boxes column in datatable
Dim cBoxes As DataColumn = New DataColumn("Boxes")
cBoxes.DataType = Type.GetType("System.Int16")
dtMovements.Columns.Add(cBoxes)
ds.Tables.Add(dtMovements)
End Sub
This is the code I am using:
Private Sub frmMovement_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
CreateDT()
DataGrid1.DataSource = ds.Tables("Movements")
txtFrom.Focus()
End Sub
Private Sub CreateDT()
dtMovements = New DataTable("Movements")
'creates Seq column in datatable
Dim cSeq As DataColumn = New DataColumn("Seq")
cSeq.DataType = Type.GetType("System.Int16")
dtMovements.Columns.Add(cSeq)
'creates From column in datatable
Dim cFrom As DataColumn = New DataColumn("From")
cFrom.DataType = Type.GetType("System.String")
dtMovements.Columns.Add(cFrom)
'creates Scancode column in datatable
Dim cScanCode As DataColumn = New DataColumn("ScanCode")
cScanCode.DataType = Type.GetType("System.String")
dtMovements.Columns.Add(cScanCode)
'creates To column in datatable
Dim cTo As DataColumn = New DataColumn("To")
cTo.DataType = Type.GetType("System.String")
dtMovements.Columns.Add(cTo)
'creates Boxes column in datatable
Dim cBoxes As DataColumn = New DataColumn("Boxes")
cBoxes.DataType = Type.GetType("System.Int16")
dtMovements.Columns.Add(cBoxes)
ds.Tables.Add(dtMovements)
End Sub