<telerik:RadGrid ID="RadGrid1" runat="server" AutoGenerateColumns="False" CssClass="grid"
AllowPaging="True" PageSize="20" Width="950px">
<MasterTableView DataKeyNames="intMasterNumber,sopnumbe, soptype">
<DetailTables>
<telerik:GridTableView DataKeyNames="DEX_ROW_ID" Name="Lines" Width="100%">
<Columns>
<telerik:GridTemplateColumn HeaderText="Item Number" SortExpression="itemnmbr">
<ItemTemplate>
<asp:HyperLink ID="targetControl" runat="server" NavigateUrl="#" Text='<%# Eval("itemnmbr") %>'></asp:HyperLink>
</ItemTemplate>
</telerik:GridTemplateColumn>
<telerik:GridBoundColumn DataField="quantity" HeaderText="Quantity"></telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="uofm" HeaderText="UofM"></telerik:GridBoundColumn>
</Columns>
</telerik:GridTableView>
</DetailTables>
<Columns>
<telerik:GridButtonColumn ButtonType="LinkButton" Text="Remove" CommandName="Remove"></telerik:GridButtonColumn>
<telerik:GridBoundColumn DataField="dtRequestedShipDate" HeaderText="Master RSD" DataFormatString="{0:MM/dd}"></telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="intMasterNumber" HeaderText="Master Number"></telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="SOPNUMBE" HeaderText="Order"></telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="ReqShipDate" HeaderText="Order RSD" DataFormatString="{0:MM/dd}"></telerik:GridBoundColumn>
</Columns>
</MasterTableView>
</telerik:RadGrid>
Protected Sub RadGrid1_DetailTableDataBind(sender As Object, e As Telerik.Web.UI.GridDetailTableDataBindEventArgs) Handles RadGrid1.DetailTableDataBind
Try
'get a reference to the grid
Dim dataItem As GridDataItem = CType(e.DetailTableView.ParentItem, GridDataItem)
'retrieve the KeyValues from the grid
Dim strSopnumber As String = dataItem.GetDataKeyValue("sopnumbe").ToString()
Dim intSoptype As String = dataItem.GetDataKeyValue("soptype").ToString()
'populate one detail section
e.DetailTableView.DataSource = DynData.SPs.sp_4P_FreightHoldDetail(strSopnumber, intSoptype, "ngb01").getTable
Catch ex As Exception
Throw ex
End Try
End Sub
Protected Sub RadGrid1_NeedDataSource(sender As Object, e As Telerik.Web.UI.GridNeedDataSourceEventArgs) Handles RadGrid1.NeedDataSource
Try
'populate the grid
Me.RadGrid1.DataSource = DynData.SPs.sp_4P_FreightHold(Me.ddlSalesperson.SelectedItem.Value, "ngb01").getTable()
Catch ex As Exception
Throw ex
End Try
End Sub
Protected Sub RadGrid1_PreRender(ByVal sender As Object, ByVal e As EventArgs) Handles RadGrid1.PreRender
If RadGrid1.MasterTableView.Items.Count > 0 Then
RadGrid1.MasterTableView.Items(0).Expanded = True
RadGrid1.MasterTableView.Items(0).ChildItem.NestedTableViews(0).Items(0).Expanded = True
End If
End Sub