Here's my code:
Dim rgOnOrder As RadGrid = New RadGrid
rgOnOrder.AllowMultiRowEdit =
True
rgOnOrder.ID =
"rgOnOrder"
rgOnOrder.DataSourceID =
"WebOnOrderSource"
rgOnOrder.MasterTableView.DataKeyNames =
New String() {"VendorStyle"}
rgOnOrder.Skin =
"WebBlue"
rgOnOrder.Width = Unit.Percentage(98)
rgOnOrder.PageSize = 15
rgOnOrder.AllowPaging =
True
rgOnOrder.AllowSorting =
True
rgOnOrder.AllowFilteringByColumn =
False
rgOnOrder.PagerStyle.Mode = GridPagerMode.NextPrevAndNumeric
rgOnOrder.AutoGenerateColumns =
False
rgOnOrder.ExportSettings.IgnorePaging =
True
rgOnOrder.ExportSettings.OpenInNewWindow =
True
rgOnOrder.ExportSettings.ExportOnlyData =
True
rgOnOrder.ExportSettings.FileName =
"webOnOrder"
rgOnOrder.ExportSettings.Pdf.PageWidth = 11
rgOnOrder.ExportSettings.Pdf.PageHeight = 8.5
'Master table - Customers (I in hierarchy level)
rgOnOrder.MasterTableView.PageSize = 15
'Add columnsn
Dim boundColumn As GridBoundColumn
boundColumn =
New GridBoundColumn
boundColumn.DataField =
"ItemKey"
boundColumn.HeaderText =
"CMS Key"
boundColumn.HeaderStyle.HorizontalAlign = HorizontalAlign.Center
rgOnOrder.MasterTableView.Columns.Add(boundColumn)
boundColumn =
New GridBoundColumn
boundColumn.DataField =
"VendorStyle"
boundColumn.HeaderText =
"Vendor Style"
boundColumn.HeaderStyle.HorizontalAlign = HorizontalAlign.Center
rgOnOrder.MasterTableView.Columns.Add(boundColumn)
boundColumn =
New GridBoundColumn
boundColumn.DataField =
"Division"
boundColumn.HeaderText =
"Division"
boundColumn.HeaderStyle.HorizontalAlign = HorizontalAlign.Center
rgOnOrder.MasterTableView.Columns.Add(boundColumn)
boundColumn =
New GridBoundColumn
boundColumn.DataField =
"Department"
boundColumn.HeaderText =
"Department"
boundColumn.HeaderStyle.HorizontalAlign = HorizontalAlign.Center
rgOnOrder.MasterTableView.Columns.Add(boundColumn)
boundColumn =
New GridBoundColumn
boundColumn.DataField =
"Class"
boundColumn.HeaderText =
"Class"
boundColumn.HeaderStyle.HorizontalAlign = HorizontalAlign.Center
rgOnOrder.MasterTableView.Columns.Add(boundColumn)
boundColumn =
New GridBoundColumn
boundColumn.DataField =
"Description"
boundColumn.HeaderText =
"Description"
boundColumn.HeaderStyle.HorizontalAlign = HorizontalAlign.Center
rgOnOrder.MasterTableView.Columns.Add(boundColumn)
boundColumn =
New GridBoundColumn
boundColumn.DataField =
"OnOrder"
boundColumn.HeaderText =
"On Order"
boundColumn.DataFormatString =
"{0:###,###}"
boundColumn.HeaderStyle.HorizontalAlign = HorizontalAlign.Center
rgOnOrder.MasterTableView.Columns.Add(boundColumn)
boundColumn =
New GridBoundColumn
boundColumn.DataField =
"TotalOnOrder"
boundColumn.HeaderText =
"Total On Order"
boundColumn.HeaderStyle.HorizontalAlign = HorizontalAlign.Center
boundColumn.DataFormatString =
"{0:###,###}"
rgOnOrder.MasterTableView.Columns.Add(boundColumn)
boundColumn =
New GridBoundColumn
boundColumn.DataField =
"FirstFlowDate"
boundColumn.HeaderText =
"First Flow Date"
boundColumn.DataFormatString =
"{0:d}"
boundColumn.HeaderStyle.HorizontalAlign = HorizontalAlign.Center
rgOnOrder.MasterTableView.Columns.Add(boundColumn)
boundColumn =
New GridBoundColumn
boundColumn.DataField =
"LastFlowDate"
boundColumn.HeaderText =
"Last Flow Date"
boundColumn.DataFormatString =
"{0:d}"
boundColumn.HeaderStyle.HorizontalAlign = HorizontalAlign.Center
rgOnOrder.MasterTableView.Columns.Add(boundColumn)
boundColumn =
New GridBoundColumn
boundColumn.DataField =
"Price"
boundColumn.HeaderText =
"Price"
boundColumn.HeaderStyle.HorizontalAlign = HorizontalAlign.Center
boundColumn.DataFormatString =
"{0:$###.##}"
boundColumn.ItemStyle.HorizontalAlign = HorizontalAlign.Right
rgOnOrder.MasterTableView.Columns.Add(boundColumn)
boundColumn =
New GridBoundColumn
boundColumn.DataField =
"txtStatus"
boundColumn.HeaderText =
"Item Status"
boundColumn.HeaderStyle.HorizontalAlign = HorizontalAlign.Center
boundColumn.ItemStyle.HorizontalAlign = HorizontalAlign.Center
rgOnOrder.MasterTableView.Columns.Add(boundColumn)
boundColumn =
New GridBoundColumn
boundColumn.DataField =
"Pulled By"
boundColumn.HeaderText =
"Pulled By"
boundColumn.HeaderStyle.HorizontalAlign = HorizontalAlign.Center
boundColumn.ItemStyle.HorizontalAlign = HorizontalAlign.Center
rgOnOrder.MasterTableView.Columns.Add(boundColumn)
Dim checkcolumn As GridCheckBoxColumn
checkcolumn =
New GridCheckBoxColumn
checkcolumn.HeaderText =
"Print Ticket?"
checkcolumn.HeaderStyle.HorizontalAlign = HorizontalAlign.Center
checkcolumn.ItemStyle.HorizontalAlign = HorizontalAlign.Center
checkcolumn.ReadOnly =
False
rgOnOrder.MasterTableView.Columns.Add(checkcolumn)
boundColumn =
New GridBoundColumn
boundColumn.DataField =
"PullBTN"
boundColumn.HeaderText =
"Add to Pull List"
boundColumn.HeaderStyle.HorizontalAlign = HorizontalAlign.Center
boundColumn.ItemStyle.HorizontalAlign = HorizontalAlign.Center
rgOnOrder.MasterTableView.Columns.Add(boundColumn)
boundColumn =
New GridBoundColumn
boundColumn.DataField =
"EditItem"
boundColumn.HeaderText =
"Edit Item"
boundColumn.HeaderStyle.HorizontalAlign = HorizontalAlign.Center
boundColumn.ItemStyle.HorizontalAlign = HorizontalAlign.Center
rgOnOrder.MasterTableView.Columns.Add(boundColumn)
rgOnOrder.MasterTableView.EditMode = GridEditMode.InPlace
Try
Me.PlaceHolder1.Controls.Clear()
Catch ex As Exception
End Try
Me.PlaceHolder1.Controls.Add(rgOnOrder)
Thanks in advance for any help!