<telerik:GridTemplateColumn HeaderText="TEMP_DT"> <ItemTemplate> <telerik:RadDatePicker ID="DatePicker" runat="server" PopupDirection="BottomRight" AutoPostBack="false" Width="120px" EnableShadows="true" ShowPopupOnFocus="true" DatePopupButton-Visible="false" DateInput-CssClass="pointer" SkinID="Web20" SelectedDate='<% #bind ("dtRecoverTemp") %>' > <DateInput runat="server" DisplayDateFormat="yyyy/MM/dd" DateInput-CssClass="pointer"></DateInput></telerik:RadDatePicker> </ItemTemplate> </telerik:GridTemplateColumn>Private Sub btnPrintAll_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnPrintAll.Click
Try
Dim radGridExport As RadGrid
If Me.Parent.Page.Title = "Database Circle Search" Then
strCallingPage = "CIR"
ElseIf Me.Parent.Page.Title = "Database Search" Then
strCallingPage = "SEA"
End If
If Not Session("MILUSER") Is Nothing Then
IsMilUser = CType(Session("MILUSER"), Boolean)
Else
IsMilUser = False ' If object not in session then make it false
End If
Dim blnfromSrchUsrCtl As Boolean = True
Dim blnfromCustGrid As Boolean = False
Dim blnFromPrintAll As Boolean = True
Dim startTick As Long = DateTime.Now.Ticks
Dim endTick As Long
Dim tick As Long
Dim milliseconds As Long
Dim microseconds As Long
strColOrder = ViewState("Column Order")
If Me.Parent.Page.Title = "Database Search" Then
Dim objPage As SearchDB
objPage = CType(MyBase.Page, Page)
If Not objPage Is No
objPage.CustomizeGridColumns(strColOrder, blnfromSrchUsrCtl)
Else
Exit Sub
End If
ElseIf Me.Parent.Page.Title = "Database Circle Search" Then
If Not IsMilUser Or Not IsEASearch Then
Dim objPage As CircleSearchDB
objPage = CType(MyBase.Page, Page)
If Not objPage Is Nothing Then
objPage.CustomizeGridColumns(strColOrder, blnfromSrchUsrCtl)
Else
Exit Sub
End If
End If
End If
radGridExport = CType(Me.FindControl("grdExport"), RadGrid)
If IsMilUser And strCallingPage = "CIR" And IsEASearch Then
radGridExport.ExportSettings.IgnorePaging = True
radGridExport.ExportSettings.OpenInNewWindow = True
radGridExport.ExportSettings.ExportOnlyData = True
radGridExport.MasterTableView.ExportToExcel()
Else
grdResult.MasterTableView.GetColumn("SEL").Display = False
grdResult.ExportSettings.IgnorePaging = True
grdResult.ExportSettings.OpenInNewWindow = True
grdResult.ExportSettings.ExportOnlyData = True
grdResult.MasterTableView.ExportToExcel()
If grdResult.MasterTableView.GetColumn("FRQ").Visible = True Then
grdResult.MasterTableView.GetColumn("FREQ").Visible = True
Else
grdResult.MasterTableView.GetColumn("FREQ").Visible = False
End If
End If
Catch ex As Exception
AFMCommonUtils.LogError(CType(Me.Session("User"), AFMBusinessLogicLayer.UserBL).USERNAME, "UsrSearchResult", "btnPrintAll_Click", ex.Message, ex.StackTrace)
ClearModuleTracker()
Response.Redirect("~/ErrorDisplay.aspx")
End Try
End Sub
<telerik:RadGrid ID="RadGridPlantedPlants" runat="server" ><PagerStyle Mode="NumericPages" AlwaysVisible="true" /><MasterTableView CommandItemDisplay="TopAndBottom" DataKeyNames="ItemId" ><Columns> <telerik:GridBoundColumn UniqueName="anItem" HeaderText="ItemId" DataField="ItemId"> <HeaderStyle Width="60px"></HeaderStyle> </telerik:GridBoundColumn> <telerik:GridBoundColumn UniqueName="uName" HeaderText="name" DataField="name"> </telerik:GridBoundColumn> </Columns><EditFormSettings InsertCaption="Add new item" CaptionFormatString="Edit ItemId: {0}" CaptionDataField="ItemId" EditFormType="Template" PopUpSettings-Modal="true" FormTableItemStyle-HorizontalAlign="Justify"> <FormTemplate> <table id="TableLayout" cellspacing="3" cellpadding="5" width="340" border="0"> <tr> <td> Location:<br />(Largest geographical area)<br /> <telerik:RadComboBox ID="plantingLocationsCombo" runat="server" DataTextField="name" DataValueField="ItemId" DataSourceID="Objectdata_plantingLocations" Width="200px"> </telerik:RadComboBox> </tr> </table> </FormTemplate></EditFormSettings></MasterTableView><ClientSettings><ClientEvents OnRowDblClick="RowDblClick" /></ClientSettings></telerik:RadGrid>protected void RadGridPlantedPlants_ItemCreated(object sender, GridItemEventArgs e){ if (e.Item is GridEditFormItem && e.Item.IsInEditMode) { GridEditFormItem editFormItem = e.Item as GridEditFormItem; //editFormItem.DataItem in debugger shows everything - but I can't get a handle to it RadComboBox plantingLocationsCombo = (RadComboBox)editFormItem.FindControl("plantingLocationsCombo"); if (editFormItem.ItemIndex != -1) //when = -1 is a new item { plantingLocationsCombo.SelectedValue = editFormItem.GetDataKeyValue("pcat_tbllu_location_id").ToString(); } }}Protected Sub RadGrid1_ItemDataBound(sender As Object, e As Telerik.Web.UI.GridItemEventArgs) Handles RadGrid1.ItemDataBound If TypeOf e.Item Is GridEditFormItem AndAlso e.Item.IsInEditMode Then Dim editform As GridEditFormItem = DirectCast(e.Item, GridEditFormItem) Dim combo As RadComboBox = DirectCast(editform.FindControl("RadComboBox1"), RadComboBox) combo.SelectedValue = "123 End IfEnd Sub
protected void showfilterTabs(int tab)
{
if (tab == 0)
{
RadFilterStartsWithFilterExpression expr1 = new RadFilterStartsWithFilterExpression("WORKORDERNUMBER");
expr1.Value =
"";
WorkOrdersRadFilter.RootGroup.AddExpression(expr1);
WorkOrdersRadFilter.RecreateControl();
}
else if (tab == 1)
{
RadFilterStartsWithFilterExpression expr1 = new RadFilterStartsWithFilterExpression("WORKORDERNUMBER");
expr1.Value =
"";
WorkOrderItemsRadFilter.RootGroup.AddExpression(expr1);
WorkOrderItemsRadFilter.RecreateControl();
}
else if (tab == 2)
{
RadFilterStartsWithFilterExpression expr1 = new RadFilterStartsWithFilterExpression("WORKORDERNUMBER");
expr1.Value =
"";
SearchAllOrdersRadFilter.RootGroup.AddExpression(expr1);
SearchAllOrdersRadFilter.RecreateControl();
}
else if (tab == 3)
{
RadFilterStartsWithFilterExpression expr1 = new RadFilterStartsWithFilterExpression("WORKORDERNUMBER");
expr1.Value =
"";
StorageWorkOrdersRadFilter.RootGroup.AddExpression(expr1);
StorageWorkOrdersRadFilter.RecreateControl();
}
else if (tab == 4)
{
RadFilterStartsWithFilterExpression expr1 = new RadFilterStartsWithFilterExpression("WORKORDERNUMBER");
expr1.Value =
"";
SearchAllItemsRadFilter.RootGroup.AddExpression(expr1);
SearchAllItemsRadFilter.RecreateControl();
}
else if (tab == 5)
{
RadFilterStartsWithFilterExpression expr1 = new RadFilterStartsWithFilterExpression("WORKORDERITEMDISPLAY");
expr1.Value =
"";
InventoriesRadFilter.RootGroup.AddExpression(expr1);
InventoriesRadFilter.RecreateControl();
}
}
function RowClick(sender, eventArgs) { eval(eventArgs.getDataKeyValue("ROWCLICK"));}<head runat="server"> <title></title> <script type="text/javascript"> function LoadUrl() { //var windowURL = document.getElementById("url").value; var oWnd = radopen("http://www.kernel.org", null); oWnd.setSize(900, 400); oWnd.center(); } function LoadPdf() { var oWnd = radopen("http://www.irs.gov/pub/irs-pdf/fw4.pdf", null); oWnd.setSize(900, 400); oWnd.center(); } function LoadGoogle() { var oWnd = radopen("https://docs.google.com/gview?url=http://www.irs.gov/pub/irs-pdf/fw4.pdf", null); oWnd.setSize(900, 400); oWnd.center(); } </script></head><body> <form id="form1" runat="server"> <div> <telerik:RadScriptManager runat="server"></telerik:RadScriptManager> <input type="button" id="url" value="Open Url" onclick="LoadUrl()" /> <input type="button" id="Button1" value="Open Pdf" onclick="LoadPdf()" /> <telerik:RadWindowManager ID="rwm" Modal="true" runat="server"></telerik:RadWindowManager> </div> </form></body></html>