Imports BasicFrame.WebControls
Public Class Sample3
Inherits System.Web.UI.Page
Private _dsContacts As DataSet
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' Create new DataSet.
_dsContacts = New DataSet
' Fill DataSet with XML from file.
_dsContacts.ReadXml(Server.MapPath("files/sample3.xml"))
' Assign Email as Primary Key Column
Dim key() As DataColumn = {_dsContacts.Tables("Contact").Columns("Email")}
_dsContacts.Tables("Contact").PrimaryKey = key
If Not IsPostBack Then
BindGrid()
End If
End Sub
Private Sub BindGrid()
DataGrid1.DataSource = _dsContacts
DataGrid1.DataBind()
End Sub
Public Function CheckDate(ByVal testDate As Object) As DateTime
Dim tempDate As DateTime
If IsDateTime(testDate) Then
tempDate = DateTime.Parse(testDate)
Else
tempDate = DateTime.MinValue
End If
Return tempDate
End Function
Public Shared Function IsDateTime(ByVal checkDate As Object) As Boolean
Dim dt As DateTime = DateTime.MinValue
Try
dt = DateTime.Parse(checkDate)
Return True
Catch
Return False
End Try
End Function
Private Sub SaveContacts()
' Save the DataSet back to XML.
' Remeber to set the File Security permission to allow Write access to file.
_dsContacts.WriteXml(Server.MapPath("files/sample3.xml"))
End Sub
Public Sub DataGrid1_EditCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs)
Me.DataGrid1.EditItemIndex = e.Item.ItemIndex
BindGrid()
End Sub
Public Sub DataGrid1_CancelCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs)
Me.DataGrid1.EditItemIndex = -1
BindGrid()
End Sub
Public Sub DataGrid1_UpdateCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs)
Dim birthDate As String = String.Empty
' Get DatePicker from DataGridItem.
Dim bdp As BasicFrame.WebControls.BasicDatePicker = (CType(e.Item.FindControl("BasicDatePicker1"), BasicFrame.WebControls.BasicDatePicker))
' Check if DateTime !isNull(DateTime.MinValue).
If Not bdp.IsNull Then
birthDate = BasicFrame.WebControls.BasicDatePicker.FormatDate(bdp.SelectedDate, "M/d/yyyy")
End If
' Get the DataRow from DataSet
Dim dr As DataRow = _dsContacts.Tables("Contact").Rows.Find(e.Item.Cells(0).Text)
' Set BirthDate to new birthDate string.
dr("BirthDate") = birthDate
' If anything has changed, then save the DataSet back to XML.
If _dsContacts.HasChanges() Then
SaveContacts()
End If
' Close the EditItem row.
Me.DataGrid1.EditItemIndex = -1
' Rebind the DataGrid.
BindGrid()
End Sub
#Region " Web Form Designer Generated Code "
'This call is required by the Web Form Designer.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
End Sub
Protected WithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid
'NOTE: The following placeholder declaration is required by the Web Form Designer.
'Do not delete or move it.
Private designerPlaceholderDeclaration As System.Object
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: This method call is required by the Web Form Designer
'Do not modify it using the code editor.
InitializeComponent()
End Sub
#End Region
End Class