This is a migrated thread and some comments may be shown as answers.

No postbacks After RadGrid loads for the First Time

4 Answers 58 Views

Grid

This is a migrated thread and some comments may be shown as answers.

4 Answers, 1 is accepted

answered on 26 Mar 2010, 01:54 PM

radgriddsdropdown.zip

Hello Murali,

I tried to replicate the issue which you described, but to no avail.
Attached to this post, you will find the code which I used for testing.

Please take a look at it and let me know if there are any differences at your end, which I may be leaving out.

Sincerely yours,
Mira
the Telerik team

Do you want to have your say when we set our development plans? Do you want to know when a feature you care about is added or when a bug fixed? Explore the Telerik Public Issue Tracking system and vote to affect the priority of the items.

answered on 29 Mar 2010, 04:48 PM

Mira,

Thank you for your prompt reply, i have tested several scenarios with radgrid and different autopostback events and they all work fine.
But i have three webpages which have been working fine until last week but now they dont anymore and nothing has changed on those pages. For your better understanding i am going to attach code snipets .... the page works just fine when i limit my query results to a few groups, but when i try to get all groups it fails. could you kindly work on this particular scenario with groups upto 41 and tell me what i am doing worng. Thank you very much, help is much apprciated.

Murali.

************************* ASPX - Page *********************************

@ Page Language="VB" MasterPageFile="~/MasterPages/WAN_MP.master" AutoEventWireup="false" CodeFile="MaintenanceExpenses.aspx.vb" Inherits="Reports_aspx_pages_MaintenanceExpenses" title="Maintenance Expenses" %>

@ Register Assembly="Telerik.Web.UI" Namespace="Telerik.Web.UI" TagPrefix="telerik" %>

asp:Content ID="Content1" ContentPlaceHolderID="MP_CPH1" Runat="Server">

<table>

<tr>

<h3>Maintenance Expenses</h3>

</td>

</tr>

<tr>

<td>

<asp:DropDownList ID="ddl_year" runat="server" AutoPostBack="true">

</asp:DropDownList>

</td>

</tr>

<tr>

<hr />

</td>

</tr>

<tr>

<telerik:RadGrid ID="rg_ExpenseReport" AutoGenerateColumns="false" runat="server">

<telerik:GridGroupByExpression>

<telerik:GridGroupByField FieldAlias="Community" FieldName="Community"></telerik:GridGroupByField>

<telerik:GridGroupByField FieldAlias="MaintenanceType" FieldName="MaintenanceType"></telerik:GridGroupByField>

</SelectFields>

<telerik:GridGroupByField FieldName="Community"></telerik:GridGroupByField>

<telerik:GridGroupByField FieldName="MaintenanceType"></telerik:GridGroupByField>

</GroupByFields>

</telerik:GridGroupByExpression>

</GroupByExpressions>

<telerik:GridBoundColumn DataField="Community" Display="false" HeaderText="Community" />

<telerik:GridBoundColumn DataField="MaintenanceType" Display="false" HeaderText="Maintenance Type" />

<telerik:GridBoundColumn DataField="MaintenanceDesc" HeaderText="Maintenance Desc" />

<telerik:GridTemplateColumn UniqueName="TemplateColumn">

<tr>

</tr>

<tr>

<td>Actual</td>

<td>Variance</td>

<td>Actual</td>

<td>Variance</td>

<td>Actual</td>

<td>Variance</td>

<td>Actual</td>

<td>Variance</td>

<td>Actual</td>

<td>Variance</td>

<td>Actual</td>

<td>Variance</td>

<td>Actual</td>

<td>Variance</td>

<td>Actual</td>

<td>Variance</td>

<td>Actual</td>

<td>Variance</td>

<td>Actual</td>

<td>Variance</td>

<td>Actual</td>

<td>Variance</td>

<td>Actual</td>

<td>Variance</td>

</tr>

</table>

</HeaderTemplate>

<tr>

</tr>

</table>

</ItemTemplate>

</telerik:GridTemplateColumn>

</Columns>

</MasterTableView>

</telerik:RadGrid>

</td>

</tr>

</table>

asp:Content>

************************ VB - Page ***********************************

Imports

IntranetDLL

Imports

System.Data

Imports

System.Media

Imports

Telerik.Web.UI

Imports

System.IO

Partial

Class Reports_aspx_pages_MaintenanceExpenses

Inherits System.Web.UI.Page

Dim utils As New Utilities

Dim clsmain As New clsMain

Dim clsdata As New clsData

Dim clscommunities As New clsCommunities

Dim clsaccounting As New clsAccounting

Dim glbl_props As New GlobalProperties

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

glbl_props =

CType(Session("Globals"), GlobalProperties)

clsmain.UserID = glbl_props.UserID

If Not IsPostBack Then

Dim dt As DataTable = clsmain.GetRefTypeValues("ReportYears")

utils.Load_Drop_Down_List(ddl_year, dt,

"Description", "ItemValue", "NULL")

End If

End Sub

Public Function CreateReport() As DataTable

Dim dt As DataTable = New DataTable

dt = clscommunities.mGetAllOpenCommunities()

Dim sFilter As String = "GL00100.actnumbr_2=090" 'All Maintenance expenses

Dim VarianceAmt As Decimal = 0.0, ActualAmt As Decimal = 0.0

Dim ExpenseDesc As String = "", ExpenseType As String = ""

Dim ReportName As String = "Expenses Report_" & clsmain.UserID

'Removing all old entries

clsdata.RunSQL(

"DELETE FROM tbl_rpt_Temp_Generic_2 WHERE UserName='" & ReportName & "'", "SEC")

Dim months As Integer = 12

If Date.Now.Year.ToString = ddl_year.SelectedValue Then

months =

Date.Now.Month

End If

For i As Integer = 0 To dt.Rows.Count - 1

For j As Integer = 1 To months

Dim query As String = ""

Dim dt_Expenses As DataTable = clsaccounting.GetGLAccountSummary(dt.Rows(i).Item("GPNum"), ddl_year.SelectedValue.ToString, j.ToString, False, sFilter)

If dt_Expenses.Rows.Count <> 0 Then

For k As Integer = 0 To dt_Expenses.Rows.Count - 1

Select Case dt_Expenses.Rows(k).Item("ACTNUMBR_1").ToString.Trim

Case "71950", "71800", "71850", "71700", "71600", "71400"

ExpenseType =

"Fixed Maintenance Expenses"

Case "71000", "71010", "71050", "71200", "72100"

ExpenseType =

"Controllable Maintenance Expenses"

Case Else

Continue For

End Select

ExpenseDesc = dt_Expenses.Rows(k).Item(

"ACTDESCR").ToString

ActualAmt = utils.CheckForNull(dt_Expenses.Rows(k).Item(

"PERDBLNC").ToString)

VarianceAmt = utils.CheckForNull(dt_Expenses.Rows(k).Item(

"BudgetTotal")) - utils.CheckForNull(dt_Expenses.Rows(k).Item("PERDBLNC"))

query = query &

" INSERT INTO tbl_rpt_Temp_Generic_2 (UserName,FieldText1,FieldText2,FieldText3,FieldText4,FieldDecimal1,FieldDecimal2) " _

" VALUES ('" & ReportName & "','" & dt.Rows(i).Item("CommunityShortName") & "','" & ExpenseType & "','" & ExpenseDesc & "','" & j & "'," & ActualAmt & "," & VarianceAmt & ")"

clsdata.RunSQL(query,

"SEC")

End If

Dim sql As String = "SELECT FieldText1 as Community,FieldText2 as MaintenanceType,FieldText3 as MaintenanceDesc," _

"SUM(case When fieldtext4=1 THEN CONVERT(decimal (10,0),FieldDecimal1) ELSE Null END) as Jan_Actual," _

"SUM(case When fieldtext4=1 THEN CONVERT(decimal (10,0),FieldDecimal2) ELSE Null END) as Jan_Variance," _

"SUM(case When fieldtext4=2 THEN CONVERT(decimal (10,0),FieldDecimal1) ELSE Null END) as Feb_Actual," _

"SUM(case When fieldtext4=2 THEN CONVERT(decimal (10,0),FieldDecimal2) ELSE Null END) as Feb_Variance," _

"SUM(case When fieldtext4=3 THEN CONVERT(decimal (10,0),FieldDecimal1) ELSE Null END) as Mar_Actual," _

"SUM(case When fieldtext4=3 THEN CONVERT(decimal (10,0),FieldDecimal2) ELSE Null END) as Mar_Variance," _

"SUM(case When fieldtext4=4 THEN CONVERT(decimal (10,0),FieldDecimal1) ELSE Null END) as Apr_Actual," _

"SUM(case When fieldtext4=4 THEN CONVERT(decimal (10,0),FieldDecimal2) ELSE Null END) as Apr_Variance," _

"SUM(case When fieldtext4=5 THEN CONVERT(decimal (10,0),FieldDecimal1) ELSE Null END) as May_Actual," _

"SUM(case When fieldtext4=5 THEN CONVERT(decimal (10,0),FieldDecimal2) ELSE Null END) as May_Variance," _

"SUM(case When fieldtext4=6 THEN CONVERT(decimal (10,0),FieldDecimal1) ELSE Null END) as Jun_Actual," _

"SUM(case When fieldtext4=6 THEN CONVERT(decimal (10,0),FieldDecimal2) ELSE Null END) as Jun_Variance," _

"SUM(case When fieldtext4=7 THEN CONVERT(decimal (10,0),FieldDecimal1) ELSE Null END) as Jul_Actual," _

"SUM(case When fieldtext4=7 THEN CONVERT(decimal (10,0),FieldDecimal2) ELSE Null END) as Jul_Variance," _

"SUM(case When fieldtext4=8 THEN CONVERT(decimal (10,0),FieldDecimal1) ELSE Null END) as Aug_Actual," _

"SUM(case When fieldtext4=8 THEN CONVERT(decimal (10,0),FieldDecimal2) ELSE Null END) as Aug_Variance," _

"SUM(case When fieldtext4=9 THEN CONVERT(decimal (10,0),FieldDecimal1) ELSE Null END) as Sep_Actual," _

"SUM(case When fieldtext4=9 THEN CONVERT(decimal (10,0),FieldDecimal2) ELSE Null END) as Sep_Variance," _

"SUM(case When fieldtext4=10 THEN CONVERT(decimal (10,0),FieldDecimal1) ELSE Null END) as Oct_Actual," _

"SUM(case When fieldtext4=10 THEN CONVERT(decimal (10,0),FieldDecimal2) ELSE Null END) as Oct_Variance," _

"SUM(case When fieldtext4=11 THEN CONVERT(decimal (10,0),FieldDecimal1) ELSE Null END) as Nov_Actual," _

"SUM(case When fieldtext4=11 THEN CONVERT(decimal (10,0),FieldDecimal2) ELSE Null END) as Nov_Variance," _

"SUM(case When fieldtext4=12 THEN CONVERT(decimal (10,0),FieldDecimal1) ELSE Null END) as Dec_Actual," _

"SUM(case When fieldtext4=12 THEN CONVERT(decimal (10,0),FieldDecimal2) ELSE Null END) as Dec_Variance " _

"FROM tbl_rpt_Temp_Generic_2 WHERE UserName='" & ReportName & "' GROUP BY FieldText1,FieldText2,FieldText3"

Return clsdata.RunSQLReturnDT(sql, "SEC")

End Function

Protected Sub ddl_year_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ddl_year.SelectedIndexChanged

rg_ExpenseReport.Rebind()

End Sub

Protected Sub rg_ExpenseReport_NeedDataSource(ByVal source As Object, ByVal e As Telerik.Web.UI.GridNeedDataSourceEventArgs) Handles rg_ExpenseReport.NeedDataSource

Dim dt As DataTable = CreateReport()

rg_ExpenseReport.DataSource = dt

End Sub

End

Class