<telerik:RadGrid ID="RadGrid1" Height="100%" runat="server" EnableHeaderContextMenu="true"> <ClientSettings> <Scrolling AllowScroll="True"></Scrolling> </ClientSettings></telerik:RadGrid>001. Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load002. If Not IsPostBack Then003. Session("st") = Nothing004. Session("IsGridToBEShowen_flag") = 0005. End If006. End Sub007. 008. 009. Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click010. Session("Report_ID") = 1011. ReplaceReport012. End Sub013. 014. 015. Protected Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click016. Session("Report_ID") = 2017. ReplaceReport018. End Sub019. 020. Protected Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click021. Session("Report_ID") = 3022. ReplaceReport023. End Sub024. 025. 026. 027.Private Sub ReplaceReport()028. 029. rep.ID = Session("Report_ID")030. 031. 032. Pre_Report()033. setGridProperties()034. 035. End_Set_Report()036. 037. End Sub038.''''''''''''''''''''''''''''''''''''''''''039. 040. Private Sub Pre_Report()041. RadGrid1.Enabled = True042. RadGrid1.Visible = True043. Session("st") = Nothing044. Session("isGridInit") = True045. 046. Session("st") = rep.Data 'get specific DataSet into Session047. End Sub048. 049. Private Sub End_Set_Report()050. 051. RadGrid1.DataSource = CType(Session("st"), DataSet).Tables(0)052. 053. RadGrid1.DataBind()054. RadGrid1.Rebind()055. Session("IsGridToBEShowen_flag") = 1056. 057. End Sub058. 059. ''''''''''''''''''''060. ''''''''''''''''''''''''''''''''''''''''''''061. Private Sub setGridProperties()062. 063. 'set grid columns properties064. If Session("RTL") Then065. RadGrid1.MasterTableView.Dir = GridTableTextDirection.RTL066. Else067. RadGrid1.MasterTableView.Dir = GridTableTextDirection.LTR068. End If069. 070. If RadGrid1.MasterTableView.DetailTables.Count > 0 Then071. RadGrid1.MasterTableView.DetailTables(0).DataSource = Nothing072. RadGrid1.MasterTableView.DetailTables(0).DataSource = New Object() {}073. RadGrid1.MasterTableView.DetailTables(0).Rebind()074. 075. RadGrid1.MasterTableView.DetailTables.Remove(0)076. End If077. 078. Dim Number_Of_Tables As Integer = CType(Session("st"), DataSet).Tables.Count079. 080. If Number_Of_Tables = 2 Then081. RadGrid1.DataSource = Nothing082. RadGrid1.Rebind()083. 'add details View084. Dim detailsView1 As GridTableView = New GridTableView()085. detailsView1.Name = "Details"086. detailsView1.DataKeyNames = New String() {"Internal_ID"}087. RadGrid1.MasterTableView.DetailTables.Add(detailsView1)088. RadGrid1.MasterTableView.DataKeyNames = New String() {"Internal_ID"}089. RadGrid1.Rebind()090. 091. End If092. 093. 094. RadGrid1.MasterTableView.TableLayout = GridTableLayout.Fixed095. RadGrid1.ClientSettings.Selecting.AllowRowSelect = True096. RadGrid1.AllowSorting = True097. RadGrid1.AllowPaging = True098. RadGrid1.AllowMultiRowSelection = True099. RadGrid1.ClientSettings.Scrolling.UseStaticHeaders = True100. RadGrid1.ShowHeader = True101. RadGrid1.AllowFilteringByColumn = True102. RadGrid1.MasterTableView.AllowFilteringByColumn = True103. RadGrid1.ClientSettings.AllowDragToGroup = True104. RadGrid1.ShowGroupPanel = True105. RadGrid1.MasterTableView.HeaderStyle.Width = Unit.Pixel(200)106. 107. RadGrid1.ClientSettings.Selecting.UseClientSelectColumnOnly = True108. RadGrid1.ClientSettings.EnableRowHoverStyle = True109. End Sub110. 111. Private Sub FirstSortGrid(colum_name As String)112. Dim expression As GridSortExpression = New GridSortExpression()113. expression.FieldName = colum_name114. expression.SortOrder = GridSortOrder.Ascending115. RadGrid1.MasterTableView.SortExpressions.AddSortExpression(expression)116. Session("isGridInit") = False117. End Sub118. 119. Protected Sub RadGrid1_NeedDataSource(sender As Object, e As GridNeedDataSourceEventArgs) Handles RadGrid1.NeedDataSource120. 121. Dim fl As Integer = Session("IsGridToBEShowen_flag")122. If fl = 1 Then123. RadGrid1.DataSource = CType(Session("st"), DataSet).Tables(0)124. 125. End If126. 127. End Sub128. 129. 130. 131. Private Sub RadGrid1_DetailTableDataBind(sender As Object, e As GridDetailTableDataBindEventArgs) Handles RadGrid1.DetailTableDataBind132. Dim dataItem As GridDataItem = CType(e.DetailTableView.ParentItem, GridDataItem)133. Select Case e.DetailTableView.Name134. Case "Details"135. Dim ConnectID As String = dataItem.GetDataKeyValue("Internal_ID").ToString()136. CType(Session("st"), DataSet).Tables(1).DefaultView.RowFilter = ""137. CType(Session("st"), DataSet).Tables(1).DefaultView.RowFilter = "Internal_ID = " & ConnectID138. e.DetailTableView.DataSource = CType(Session("st"), DataSet).Tables(1).DefaultView139. End Select140. End Sub
<telerik:RadTimePicker ID="rtpStartTime" TimeView-HeaderText="Start Time" runat="server" Width="90px" TimeView-Interval="0:15:0" TimeView-StartTime="7:0:0" TimeView-EndTime="17:0:0"></telerik:RadTimePicker>$("input[id$=rtpStartTime_dateInput").val()<input id="ctl00_ContentPlaceHolder1_rtpStartTime_dateInput_ClientState" name="ctl00_ContentPlaceHolder1_rtpStartTime_dateInput_ClientState" type="hidden" autocomplete="off" value="{"enabled":true,"emptyMessage":"","validationText":"2014-06-12-05-00-00","valueAsString":"2014-06-12-05-00-00","minDateStr":"1980-01-01-00-00-00","maxDateStr":"2099-12-31-00-00-00","lastSetTextBoxValue":"5:00 AM"}">I recently had a project upgraded from Telerik 2009.2.702.35 to 2014.1.403.40. In my RadGrid_ItemDataBound event, I get the values from two of my bound columns and construct a string that I assign to a hyperlink column. Prior to the upgrade, my code worked (and still works in an unconverted version). After the upgrade, my code doesn't seem to work any longer. It looks like one of my bound columns isn't getting assigned a value and contains the blank value default text " " now and I'm not sure why. When I interrogate the item row variable, I can see the data values in the ItemArray collection, but it doesn't seem to be available to me as a table column value when I try to extract it using the column's UniqueName. In the code snippet below, the second value called "NIIN" is there, but the first value called "PIIN" ,isn't( I've verified that the SQL code that I'm using is extracting a value). I can't explain why some of my bound columns don't contain data any longer and other columns do. Any help that you can provide would be appreciated.
protected void RadGrid1_ItemDataBound(object sender, Telerik.Web.UI.GridItemEventArgs e)
{
if (e.Item is GridDataItem)
{
if (e.Item.OwnerTableView.Name == "LTC_ITEM")
{
GridDataItem item = (GridDataItem)e.Item;
HyperLink hl = (HyperLink)item["LinkCol"].Controls[0];
if (hl != null)
{
string link = "itemdetail.aspx?PIIN=" + item["PIIN"].Text + "&NIIN=" + item["NIIN"].Text; ;
hl.NavigateUrl = link;
}
LTCHeader header = (LTCHeader)FormView1.DataItem;
if ((header != null) && (header.IsTerminated()))
{
GridDataItem di = (GridDataItem)e.Item;
DataBoundControl minQtyPerOrder = (DataBoundControl)di["MIN_QTY_PER_ORDER"].Controls[0];
DataBoundControl maxQtyPerOrder = (DataBoundControl)di["MAX_QTY_PER_ORDER"].Controls[0];
DataBoundControl maxQtyAvail = (DataBoundControl)di["MAX_QTY_AVAIL"].Controls[0];
minQtyPerOrder.Enabled = false;
maxQtyPerOrder.Enabled = false;
maxQtyAvail.Enabled = false;
}
}
}
}