Advertisement
Advertisement
| 12.15.2007 at 03:01PM PST, ID: 23025869 |
|
[x]
Attachment Details
|
||
|
[x]
The Solution Rating System
|
||
With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.
Your Input Matters If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support. Thank you! |
||
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31: 32: 33: 34: 35: 36: 37: 38: 39: 40: 41: 42: 43: 44: 45: 46: 47: 48: 49: 50: 51: 52: 53: 54: 55: 56: 57: 58: |
Partial Class affiliatecomm
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
'Response.CacheControl = "private"
'Response.Expires = 0
'Response.AddHeader("pragma", "no-cache")
End Sub
Protected Sub btnGetAffCommData_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnGetAffCommData.Click
Me.PopulateAffSummData()
End Sub
Protected Sub PopulateAffSummData()
Dim ds As DataSet = DB.GetDS("dbo.AffCommDueSummary", False)
If ds.Tables(0).Rows.Count > 0 Then
Me.gvCommSummary.DataSource = ds.Tables(0)
Me.gvCommSummary.DataBind()
End If
End Sub
Private Function ConvertSortDirectionToSql(ByVal sortDirection As SortDirection) As String
Dim NewSortDirection As String = String.Empty
Select Case sortDirection
Case sortDirection.Ascending
NewSortDirection = "ASC"
Case sortDirection.Descending
NewSortDirection = "DESC"
Case Else
NewSortDirection = ""
End Select
Return NewSortDirection
End Function
Protected Sub gvCommSummary_PageIndexChanging(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewPageEventArgs) Handles gvCommSummary.PageIndexChanging
Me.PopulateAffSummData()
gvCommSummary.PageIndex = e.NewPageIndex
gvCommSummary.DataBind()
End Sub
Protected Sub gvCommSummary_Sorting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewSortEventArgs) Handles gvCommSummary.Sorting
Me.PopulateAffSummData()
Dim dt As DataTable = gvCommSummary.DataSource
If Not dt Is Nothing Then
Dim dataView As DataView = New DataView(dt)
dataView.Sort = e.SortExpression + " " + ConvertSortDirectionToSql(e.SortDirection)
gvCommSummary.DataSource = dataView
gvCommSummary.DataBind()
End If
End Sub
End Class
|