or
Private Sub Page_Init(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Init buildGrid()End SubSub buildGrid() Dim state As String = drp_state.SelectedValue If state = "" Then state = 0 End If Dim dt As DataTable = myDataAccessClass.data1(param1, param2) Datasource = dt GridDataKeyNames = "ID" ' masterTableCreation builds and adds the columns, no issue with this. masterTableCreation() Dim dtSub As DataTable = myDataAccessClass.data1(param3) hierarchyTable(dtSub, "", "ID", "ID")End SubPublic Sub hierarchyTable(ByVal dt As DataTable, ByVal datakeys As String, ByVal masterKeyField As String, ByVal detailKeyField As String) Dim hierarchyTable As New GridTableView(RadGrid1) ' set the datasouce hierarchyTable.DataSource = dt hierarchyTable.Width = Unit.Percentage(100) Dim datakeysArray() As String If datakeys <> "" Then datakeysArray = datakeys.Split(",".ToArray()) hierarchyTable.DataKeyNames = datakeysArray End If Dim relationFields As GridRelationFields = New GridRelationFields() relationFields.MasterKeyField = masterKeyField relationFields.DetailKeyField = detailKeyField hierarchyTable.ParentTableRelation.Add(relationFields) RadGrid1.MasterTableView.DetailTables.Add(hierarchyTable) 'add columns Dim boundColumn As GridBoundColumn hierarchyTable.Columns.Clear() For i As Int32 = 0 To Datasource.Columns.Count - 1 Dim column As DataColumn = Datasource.Columns(i) Dim colDataType As String = column.DataType.ToString().ToLower().Replace("system.", "") boundColumn = New GridBoundColumn hierarchyTable.Columns.Add(boundColumn) boundColumn.DataField = column.ColumnName boundColumn.HeaderText = column.ColumnName.Replace("_", " ").ToLower() boundColumn.DataFormatString = "<nobr>{0}</nobr>" boundColumn.ItemStyle.HorizontalAlign = HorizontalAlign.Left NextEnd Sub<telerik:RadGrid ID="RadGrid1" runat="server" AutoGenerateColumns="False" AllowSorting="True" AllowPaging="True" PageSize="5" GridLines="None" ShowGroupPanel="True"> <MasterTableView AllowMultiColumnSorting="True" GroupLoadMode="Server"> </MasterTableView> <PagerStyle Mode="NextPrevNumericAndAdvanced"></PagerStyle> <ClientSettings AllowDragToGroup="true" /></telerik:RadGrid>RadGrid1.DataSource = ClassLibrary1.Service.Getdata().Where(x => x.Monthdate == DateTime.Parse("2010-12-01 00:00:00.000"));at Telerik.Web.UI.GridColumn.set_CurrentFilterValue(String value)at Telerik.Web.UI.GridColumn.set_CurrentFilterValue(String value)at Telerik.Web.UI.RadGrid.RaisePostBackEvent(String eventArgument)at System.Web.UI.Page.RaisePostBackEvent(IPostBackEventHandler sourceControl, String eventArgument)at System.Web.UI.Page.RaisePostBackEvent(NameValueCollection postData)at System.Web.UI.Page.ProcessRequestMain(Boolean includeStagesBeforeAsyncPoint, Boolean includeStagesAftefunction ShowDriverWindow(sender, eventArgs) { var hack = "499628"; var url = "DriverInfo.aspx?hack=" + hack; var oWnd = radopen(url, "RadWindowDriverInfo"); eventArgs.set_cancel(true); }var driverInfo = (from dr in db.T_DRIVERs where dr.HACK_ID == int.Parse(hackId) select new { ... dr.MEDALLION_ID, ... }).Single();RadComboBoxSteadyMedl.SelectedValue = driverInfo.MEDALLION_ID.ToString();Private Sub RadGrid1_PreRender(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadGrid1.PreRender Dim status As String = Request.QueryString(0) If status = "Future" Then For Each column As GridColumn In RadGrid1.Columns If (column.UniqueName = "Start_Dt") Then CType(column, GridBoundColumn).ReadOnly = False CType(column, GridBoundColumn).DataFormatString = "{0:D}" Exit For End If Next Else For Each column As GridColumn In RadGrid1.Columns If (column.UniqueName = "BoundDate") Then CType(column, GridBoundColumn).ReadOnly = True CType(column, GridBoundColumn).DataFormatString = "{0:D}" Exit For End If Next End If End Sub