Data Grid will not display

[Leo]

Thanks for the Help in Advance!!

I am a beginner in VB.Net. I am trying to create a form which is displayed in a email for our customers to fill in a Request for quote. I would like them to type data into fields and have it added to the Datagrid.

I am constantly getting the error Column 'OALen' does not belong to table .

Any Ideas?
Public tblJobItems As New DataTable

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArg s) Handles MyBase.Load
If Not (Page.IsPostBac k) Then

'Sequence
Dim Sequence As DataColumn = New DataColumn
With Sequence
.DataType = System.Type.Get Type("System.In t32")
.ColumnName = "Sequence"
.AllowDBNull = False
.ReadOnly = True
.AutoIncrement = True
End With
tblJobItems.Col umns.Add(Sequen ce)

'Quantity
Dim Quantity As DataColumn = New DataColumn
With Quantity
.DataType = System.Type.Get Type("System.In t32")
.ColumnName = "Quantity"
.ReadOnly = False
.AutoIncrement = False
End With
tblJobItems.Col umns.Add(Quanti ty)

'FamilyType
Dim FamilyType As DataColumn = New DataColumn
With FamilyType
.DataType = System.Type.Get Type("System.St ring")
.ColumnName = "FamilyType "
.ReadOnly = False
.AutoIncrement = False
.Caption = "Truss Type"
End With
tblJobItems.Col umns.Add(Family Type)

' Over All Length
Dim OAL As DataColumn = New DataColumn
With OAL
.DataType = System.Type.Get Type("System.St ring")
.ColumnName = "OALen"
.ReadOnly = False
.AutoIncrement = False
.Caption = "Over all Length"
End With
tblJobItems.Col umns.Add(OAL)

'Heel
Dim Heel As DataColumn = New DataColumn
With Heel
.DataType = System.Type.Get Type("System.St ring")
.ColumnName = "Heel"
.ReadOnly = False
.AutoIncrement = False
End With
tblJobItems.Col umns.Add(Heel)

'Item Description
Dim Description As DataColumn = New DataColumn
With Description
.DataType = System.Type.Get Type("System.St ring")
.ColumnName = "Descriptio n"
.ReadOnly = False
.AutoIncrement = False
End With
tblJobItems.Col umns.Add(Descri ption)

'Pitch
Dim Pitch As DataColumn = New DataColumn
With Pitch
.DataType = System.Type.Get Type("System.St ring")
.ColumnName = "Pitch"
.ReadOnly = False
.AutoIncrement = False
End With
tblJobItems.Col umns.Add(Pitch)

'LOverHange
Dim LOverHang As DataColumn = New DataColumn
With LOverHang
.DataType = System.Type.Get Type("System.St ring")
.ColumnName = "LOH"
.ReadOnly = False
.AutoIncrement = False
End With
tblJobItems.Col umns.Add(LOverH ang)

'ROverHang
Dim ROverHang As DataColumn = New DataColumn
With ROverHang
.DataType = System.Type.Get Type("System.St ring")
.ColumnName = "ROH"
.ReadOnly = False
.AutoIncrement = False
End With
tblJobItems.Col umns.Add(ROverH ang)

'LCant
Dim LCant As DataColumn = New DataColumn
With LCant
.DataType = System.Type.Get Type("System.St ring")
.ColumnName = "LCant"
.ReadOnly = False
.AutoIncrement = False
End With
tblJobItems.Col umns.Add(LCant)

'RCant
Dim RCant As DataColumn = New DataColumn
With RCant
.DataType = System.Type.Get Type("System.St ring")
.ColumnName = "RCant"
.ReadOnly = False
.AutoIncrement = False
End With
tblJobItems.Col umns.Add(RCant)

'BearingSize
Dim BearingSize As DataColumn = New DataColumn
With BearingSize
.DataType = System.Type.Get Type("System.St ring")
.ColumnName = "BearingSiz e"
.ReadOnly = False
.AutoIncrement = False
End With
tblJobItems.Col umns.Add(Bearin gSize)

'SpecialNotes
Dim SpecialNotes As DataColumn = New DataColumn
With SpecialNotes
.DataType = System.Type.Get Type("System.St ring")
.ColumnName = "SpecialNot es"
.ReadOnly = False
.AutoIncrement = False
End With
tblJobItems.Col umns.Add(Specia lNotes)
' Create an array for DataColumn objects.
Dim keys(0) As DataColumn
keys(0) = Sequence

Dim PrimaryKeyColum ns(0) As DataColumn
PrimaryKeyColum ns(0) = tblJobItems.Col umns("Sequence" )
tblJobItems.Pri maryKey = PrimaryKeyColum ns
End If
DataGrid1.DataS ource = tblJobItems
DataGrid1.DataB ind()

End Sub

Private Sub btnADDTrussItem _Click(ByVal sender As System.Object, ByVal e As System.EventArg s) Handles btnADDTrussItem .Click

'Insert new row into the dataset table
Dim dr As DataRow = tblJobItems.New Row()
dr("OALen") = tbOAL.Text
dr("Heel") = ddlHeel.Selecte dValue
tblJobItems.Row s.Add(dr)
'Refresh the grid
DataGrid1.EditI temIndex = -1
End Sub

[Bin Song, MCP]

Hi Leo

The reason might be the variable tblJobItems. Though you define as public, it will not persist through posting back. You might consider using ViewState to store it, like
Private tblJobItems As DataTabl
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArg s) Handles MyBase.Loa
If Not (Page.IsPostBac k) The
'Build datatabl
Els
'Get table from ViewStat
tblJobItems = CType(ViewState ("tblJobItems") , DataTable
End I
DataGrid1.DataS ource = tblJobItem
DataGrid1.DataB ind(
End Su

Private Sub Page_Prerender( ByVal sender As System.Object, ByVal e As System.EventArg s) Handles MyBase.PreRende
'Save table back to ViewStat
ViewState("tblJ obItems") = tblJobItem
End Su
Hope this will help

Bin Song, MC

[Steven Cheng[MSFT]]

Thanks for Bin's good suggestions.

Hi Leo,

I agree with Bin's solution. In addition to the "ViewState" , you can also
use SessionState to maintain DataSource between the page's post back. There
is a example on this in the following link:

#DataGrid.SortC ommand Event
http://msdn.microsoft.com/library/en...webuiwebcontro
lsdatagridclass sortcommandtopi c.asp?frame=tru e

Hope also helps. Thanks.

Regards,

Steven Cheng
Microsoft Online Support

Get Secure! www.microsoft.com/security
(This posting is provided "AS IS", with no warranties, and confers no
rights.)

Get Preview at ASP.NET whidbey
http://msdn.microsoft.com/asp.net/whidbey/default.aspx

[Steven Cheng[MSFT]]

Hi Leo,

Have you had a chance to check out the suggestions in my last reply or have
you got any further ideas on this issue? If you have anything unclear or if
there're anything else we can help, please feel free to post here. Thanks.

Regards,

Steven Cheng
Microsoft Online Support

Get Secure! www.microsoft.com/security
(This posting is provided "AS IS", with no warranties, and confers no
rights.)

Get Preview at ASP.NET whidbey
http://msdn.microsoft.com/asp.net/whidbey/default.aspx