Option Explicit On
Option Strict On

Imports ISNet.WebUI
Imports ISNet.WebUI.WebGrid
Imports System.Data

Partial Class Modules_Default
	Inherits System.Web.UI.Page

	Protected Sub grdResult_InitializeDataSource(ByVal sender As Object, ByVal e As ISNet.WebUI.WebGrid.DataSourceEventArgs) Handles grdResult.InitializeDataSource
		'change cache timeout from 5 minutes (default) to 4 hours before loading data
		CType(sender, WebGrid).SetCacheControl(New System.TimeSpan(4, 0, 0), CacheItemPriority.Default)

		'fill in some static data
		Dim ds As New DataSet()
		ds.Tables.Add()
		ds.Tables(0).Columns.Add(New System.Data.DataColumn("Description", Type.GetType("System.String")))
		ds.Tables(0).Columns.Add(New System.Data.DataColumn("X1", Type.GetType("System.Double")))
		ds.Tables(0).Columns.Add(New System.Data.DataColumn("X2", Type.GetType("System.Double")))
		ds.Tables(0).Columns.Add(New System.Data.DataColumn("X3", Type.GetType("System.Double")))
		ds.Tables(0).Columns.Add(New System.Data.DataColumn("X4", Type.GetType("System.Double")))
		ds.Tables(0).Columns.Add(New System.Data.DataColumn("X5", Type.GetType("System.Double")))
		ds.Tables(0).Columns.Add(New System.Data.DataColumn("X6", Type.GetType("System.Double")))
		ds.Tables(0).Columns.Add(New System.Data.DataColumn("X7", Type.GetType("System.Double")))
		ds.Tables(0).Columns.Add(New System.Data.DataColumn("X8", Type.GetType("System.Double")))
		ds.Tables(0).Columns.Add(New System.Data.DataColumn("X9", Type.GetType("System.Double")))
		ds.Tables(0).Columns.Add(New System.Data.DataColumn("X10", Type.GetType("System.Double")))
		ds.Tables(0).Columns.Add(New System.Data.DataColumn("X11", Type.GetType("System.Double")))
		ds.Tables(0).Columns.Add(New System.Data.DataColumn("X12", Type.GetType("System.Double")))
		ds.Tables(0).Columns.Add(New System.Data.DataColumn("X13", Type.GetType("System.Double")))
		ds.Tables(0).Columns.Add(New System.Data.DataColumn("X14", Type.GetType("System.Double")))
		ds.Tables(0).Columns.Add(New System.Data.DataColumn("X15", Type.GetType("System.Double")))
		ds.Tables(0).Columns.Add(New System.Data.DataColumn("X16", Type.GetType("System.Double")))
		ds.Tables(0).Columns.Add(New System.Data.DataColumn("X17", Type.GetType("System.Double")))
		ds.Tables(0).Columns.Add(New System.Data.DataColumn("X18", Type.GetType("System.Double")))
		ds.Tables(0).Columns.Add(New System.Data.DataColumn("X19", Type.GetType("System.Double")))
		ds.Tables(0).Columns.Add(New System.Data.DataColumn("X20", Type.GetType("System.Double")))
		ds.Tables(0).Columns.Add(New System.Data.DataColumn("X21", Type.GetType("System.Double")))
		ds.Tables(0).Columns.Add(New System.Data.DataColumn("X22", Type.GetType("System.Double")))
		ds.Tables(0).Columns.Add(New System.Data.DataColumn("X23", Type.GetType("System.String")))
		ds.Tables(0).Columns.Add(New System.Data.DataColumn("X24", Type.GetType("System.Double")))
		ds.Tables(0).Columns.Add(New System.Data.DataColumn("X25", Type.GetType("System.DateTime")))
		ds.Tables(0).Columns.Add(New System.Data.DataColumn("X26", Type.GetType("System.String")))
		ds.Tables(0).Columns.Add(New System.Data.DataColumn("X27", Type.GetType("System.String")))
		ds.Tables(0).Columns.Add(New System.Data.DataColumn("X28", Type.GetType("System.String")))
		ds.Tables(0).Columns.Add(New System.Data.DataColumn("X29", Type.GetType("System.String")))
		ds.Tables(0).Columns.Add(New System.Data.DataColumn("X30", Type.GetType("System.String")))
		ds.Tables(0).Columns.Add(New System.Data.DataColumn("X31", Type.GetType("System.String")))
		ds.Tables(0).Rows.Add()("Description") = "Row 1"
		ds.Tables(0).Rows.Add()("Description") = "Row 2"
		ds.Tables(0).Rows.Add()("Description") = "Row 3"

		e.DataSource = ds
	End Sub

	Protected Sub grdResult_PreRender(ByVal sender As Object, ByVal e As System.EventArgs) Handles grdResult.PreRender
		SetColumnCaptions(grdResult.RootTable)
	End Sub

	Private Sub SetColumnCaptions(ByVal Table As WebGridTable)
		'Change Caption of the columns depending on the selection item in combo boxes
		For Each col As WebGridColumn In Table.Columns
			col.Caption = Replace(col.Caption, "X", "R")
		Next

		Dim IsVarEs As Boolean = True

		grdResult.RootTable.Columns(0).Width = New System.Web.UI.WebControls.Unit("250px")
		grdResult.RootTable.Columns.GetNamedItem("X16").Visible = Not IsVarEs
		grdResult.RootTable.Columns.GetNamedItem("X17").Visible = Not IsVarEs
		grdResult.RootTable.Columns.GetNamedItem("X18").Visible = Not IsVarEs
		grdResult.RootTable.Columns.GetNamedItem("X19").Visible = Not IsVarEs
		grdResult.RootTable.Columns.GetNamedItem("X21").Visible = Not IsVarEs
		grdResult.RootTable.Columns.GetNamedItem("X22").Visible = Not IsVarEs
	End Sub
End Class