Imports System
Imports System.Data
Imports System.Configuration
Imports System.Collections
Imports System.Web
Imports System.Web.Security
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.WebControls.WebParts
Imports System.Web.UI.HtmlControls
Partial Public Class DataGrid_ColumnsDataFormatting
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
'Define SQL query
Dim SqlQuery As String = "SELECT * FROM DataFormat"
'Get DataTable (MS Access Database)
Dim myDataSource As DataTable = DataBase.GetDataTableOleDb(SqlQuery, "~/DataGrid/DataBases/DataFormat.mdb")
'Set the data source
myDataGrid.DataSource = myDataSource
myDataGrid.DataBind()
'Format data
Dim CultureValue As String = "en-US"
Dim format As System.IFormatProvider = New System.Globalization.CultureInfo(CultureValue, True)
myDataGrid.Columns("DateTime").FormatProvider = format
myDataGrid.Columns("DateTime").FormatType = GetType(Date)
myDataGrid.Columns("DateTime").FormatString = "D"
myDataGrid.Columns("Currency").FormatProvider = format
myDataGrid.Columns("Currency").FormatType = GetType(System.Decimal)
myDataGrid.Columns("Currency").FormatString = "C"
myDataGrid.Columns("Number").FormatProvider = format
myDataGrid.Columns("Number").FormatType = GetType(System.Double)
myDataGrid.Columns("Number").FormatString = "N"
End Sub
End Class
|