or
Posted 9 hours ago (permalink)
| <telerik:RadGrid AutoGenerateColumns="true" ID="RadGrid1" Visible="false" MasterTableView-EnableNoRecordsTemplate="true" |
| Width="100%" AllowFilteringByColumn="True" AllowSorting="True" OnSortCommand="RadGrid1_SortCommand" |
| PageSize="15" ShowStatusBar="true" AllowPaging="True" OnPageIndexChanged="RadGrid1_PageIndexChanged" |
| runat="server" GridLines="None" OnExcelMLExportStylesCreated="RadGrid1_ExcelMLExportStylesCreated" |
| OnExcelMLExportRowCreated="RadGrid1_ExcelMLExportRowCreated"> |
| <PagerStyle Mode="NextPrevAndNumeric" /> |
| <MasterTableView Summary="testing" ></MasterTableView> |
| </telerik:RadGrid> |
| Protected Sub RadGrid1_NeedDataSource(ByVal source As Object, ByVal e As GridNeedDataSourceEventArgs) Handles RadGrid1.NeedDataSource |
| Select Case tmp_comp_report_ID |
| Case 19 |
| GetSectionReport(19, CInt(Request.QueryString.Item("reportid")), CInt(ddl_Stores.SelectedValue.ToString), ddl_Departments.SelectedItem.Text.ToString, 0, "") |
| Case 24 |
| GetSectionReport(24, CInt(Request.QueryString.Item("reportid")), CInt(ddl_Stores.SelectedValue.ToString), ddl_Departments.SelectedItem.Text.ToString, 1, "") |
| End Select |
| End Sub |
| Protected Sub RadGrid1_PageIndexChanged(ByVal source As Object, ByVal e As Telerik.Web.UI.GridPageChangedEventArgs) Handles RadGrid1.PageIndexChanged |
| Select Case tmp_comp_report_ID |
| Case 19 |
| GetSectionReport(19, CInt(Request.QueryString.Item("reportid")), CInt(ddl_Stores.SelectedValue.ToString), ddl_Departments.SelectedItem.Text.ToString, 0, "") |
| Case 24 |
| GetSectionReport(24, CInt(Request.QueryString.Item("reportid")), CInt(ddl_Stores.SelectedValue.ToString), ddl_Departments.SelectedItem.Text.ToString, 1, "") |
| End Select |
| End Sub |
| Protected Sub RadGrid1_SortCommand(ByVal source As Object, ByVal e As Telerik.Web.UI.GridSortCommandEventArgs) Handles RadGrid1.SortCommand |
| Select Case tmp_comp_report_ID |
| Case 19 |
| GetSectionReport(19, CInt(Request.QueryString.Item("reportid")), CInt(ddl_Stores.SelectedValue.ToString), ddl_Departments.SelectedItem.Text.ToString, 0, "") |
| Case 24 |
| GetSectionReport(24, CInt(Request.QueryString.Item("reportid")), CInt(ddl_Stores.SelectedValue.ToString), ddl_Departments.SelectedItem.Text.ToString, 1, "") |
| End Select |
| End Sub |
| Protected Sub RadGrid1_ColumnCreated(ByVal sender As Object, ByVal e As Telerik.Web.UI.GridColumnCreatedEventArgs) Handles RadGrid1.ColumnCreated |
| e.Column.HeaderText = Replace(e.Column.HeaderText.ToString, "_", " ") |
| e.Column.AutoPostBackOnFilter = True |
| End Sub |
| Protected Sub fabricGrid_ItemDataBound(ByVal sender As Object, ByVal e As Telerik.Web.UI.GridItemEventArgs) Handles fabricGrid.ItemDataBound |
| If (TypeOf e.Item Is GridEditFormItem AndAlso e.Item.IsInEditMode) Then |
| Dim editedItem As GridEditFormItem = CType(e.Item, GridEditFormItem) |
| ' Add supplier combobox |
| Dim supplierCombo As New RadComboBox |
| supplierCombo.ID = "supplierCombo" |
| Dim objPlan As New lucyPlanBizObject.plan _ |
| (Application("ConnectString")) |
| Dim dsResult As DataSet |
| dsResult = objPlan.getFabricSupplier("active") |
| supplierCombo.DataSource = dsResult.Tables(0) |
| supplierCombo.DataValueField = "fabricSupplierID" |
| supplierCombo.DataTextField = "supplier" |
| supplierCombo.DataBind() |
| supplierCombo.SelectedValue = 2 |
| editedItem("supplier").Controls.Add(supplierCombo) |
| Dim textbox As TextBox |
| textbox = CType(editedItem("supplier").Controls(0), TextBox) |
| textbox.Visible = False |
| textbox.CssClass = "smalltext" |
| End If |
| End Sub |
| Protected Sub fabricGrid_UpdateCommand(ByVal source As Object, ByVal e As Telerik.Web.UI.GridCommandEventArgs) Handles fabricGrid.UpdateCommand |
| Dim i As Integer |
| If TypeOf e.Item Is GridEditFormItem AndAlso e.Item.IsInEditMode Then |
| Dim editedItem As GridEditFormItem = CType(e.Item, GridEditFormItem) |
| Dim textbox As TextBox |
| Dim supplierCombo As RadComboBox |
| Dim fabricID As String |
| Dim planStyleColorFabricID As Integer |
| Dim fabricSupplierID As Integer |
| planStyleColorFabricID = CInt(e.Item.OwnerTableView.Items(e.Item.ItemIndex).Cells(3).Text) |
| fabricID = e.Item.OwnerTableView.Items(e.Item.ItemIndex).Cells(4).Text |
| fabricSupplierID = CInt(e.Item.OwnerTableView.Items(e.Item.ItemIndex).Cells(6).Text) |
| textbox = CType(editedItem("fabricID").Controls(0), TextBox) |
| supplierCombo = CType(editedItem("supplier").Controls(1), RadComboBox) 'supplierCombo = nothing because RadComboBox control is nowhere to be found!!! |
| End If |
| End Sub |
<
script type="text/javascript">
function openRadWin() {
radopen("ViewSiteGroupSites_Popup.aspx,
"RadWindow1");
}
</script>
<
telerik:RadWindowManager ID="RadWindowManager1" runat="server" Modal="true" >
<Windows>
<telerik:RadWindow
id="RadWindow1"
runat="server"
showcontentduringload="false"
width="500px"
height="500px"
VisibleTitlebar="false"
VisibleStatusbar="false"
>
</telerik:RadWindow>
</Windows>
</telerik:RadWindowManager>