Easy GridView editing with Calendar control in VB ASP.NET

Public Class Appointments
    Inherits System.Web.UI.Page

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

    End Sub

    Private Shared MyAdapter As New DataSet
    Private CustomerDataPath As String = Server.MapPath("~/") & "FileNameToSaveDataTo" & ".xml"
    Private Sub _Default_Init(sender As Object, e As EventArgs) Handles Me.Init
        If Not IsPostBack Then
            LoadCustomerData()
            If MyAdapter.Tables.Count = 0 Then
                MyAdapter.Tables.Add("Clients")
                MyAdapter.Tables(0).Columns.Add("Name")
                MyAdapter.Tables(0).Columns.Add("Notes")
                MyAdapter.Tables(0).Rows.Add("Client1", "test")

                MyAdapter.Tables.Add("Calendar")
                MyAdapter.Tables(1).Columns.Add("Name")
                MyAdapter.Tables(1).Columns.Add("Notes")
                MyAdapter.Tables(1).Columns.Add("AppointmentDate")
                MyAdapter.Tables(1).Rows.Add("Client2", "test2", Now.Date)
                SaveCustomerData()
            End If

            For Each MyTable As DataTable In MyAdapter.Tables
                If MyTable.Rows.Count > 1 Then
                    If MyTable.Rows(MyTable.Rows.Count - 1)("Name") <> "New Entry" Then
                        MyTable.Rows.Add("New Entry", "")
                    End If
                Else
                    MyTable.Rows.Add("New Entry", "")
                End If
            Next


            GridView1.DataSource = MyAdapter.Tables(0)
            GridView1.DataBind()

            GridView2.DataSource = MyAdapter.Tables(1)
            GridView2.DataBind()

            Debug.WriteLine("No Postback")
        Else
            Debug.WriteLine("Postback")
        End If




        Debug.WriteLine(PublicModule.XmlSerialize(MyAdapter))
        Debug.WriteLine(Newtonsoft.Json.JsonConvert.SerializeObject(MyAdapter))


        'JSON did not work at all
        'Dim jss As New Script.Serialization.JavaScriptSerializer()
        'Adapter2 = jss.Deserialize(Of DataSet)(Newtonsoft.Json.JsonConvert.SerializeObject(MyAdapter))

        'Dim ADapter3 As DataSet = PublicModule.XmlDeserialize(Of DataSet)(PublicModule.XmlSerialize(MyAdapter))
        Debug.WriteLine("Done")
    End Sub

    Private Function BindControls()
        GridView1.DataSource = MyAdapter.Tables(0)
        GridView1.DataBind()

        GridView2.DataSource = MyAdapter.Tables(1)
        GridView2.DataBind()

        For Each MyRow As GridViewRow In GridView2.Rows
            If MyRow.RowIndex + 1 = GridView2.Rows.Count Then
                Exit For
            End If
            MyRow.Visible = False
            If Date.Parse(MyRow.Cells(3).Text).Date.ToShortDateString = Calendar1.SelectedDate.ToShortDateString Then
                MyRow.Visible = True
                Debug.WriteLine(Date.Parse(MyRow.Cells(3).Text).Date.ToShortDateString)
            End If
        Next
    End Function

    Private Function LoadCustomerData()
        If IO.File.Exists(CustomerDataPath) Then
            Dim FS As IO.FileStream = New IO.FileStream(CustomerDataPath, IO.FileMode.Open, IO.FileAccess.Read, IO.FileShare.Read)
            Dim Data As New System.IO.StreamReader(FS)
            Dim PublicXML = Data.ReadToEnd()
            MyAdapter = PublicModule.XmlDeserialize(Of DataSet)(PublicXML)
            Debug.WriteLine("RAW Data" & vbCrLf & PublicXML)
            FS.Close()
            FS.Dispose()
        End If

    End Function

    Private Function SaveCustomerData()
        Try
            My.Computer.FileSystem.WriteAllText(CustomerDataPath, PublicModule.XmlSerialize(MyAdapter), False)
            Debug.WriteLine("SaveCustomerData: Customer Data saved")
            Return True
        Catch ex As Exception
            Debug.WriteLine(ex.Message)
        End Try
        Return False
    End Function

    Private Sub GridView1_RowEditing(sender As Object, e As GridViewEditEventArgs) Handles GridView1.RowEditing
        GridView1.EditIndex = e.NewEditIndex
        GridView1.DataSource = MyAdapter.Tables(0)
        GridView1.DataBind()
    End Sub

    Private Sub GridView1_RowCancelingEdit(sender As Object, e As GridViewCancelEditEventArgs) Handles GridView1.RowCancelingEdit
        GridView1.EditIndex = -1
        GridView1.DataSource = MyAdapter.Tables(0)
        GridView1.DataBind()
    End Sub

    Private Sub GridView2_RowEditing(sender As Object, e As GridViewEditEventArgs) Handles GridView2.RowEditing
        GridView2.EditIndex = e.NewEditIndex

        BindControls()
        Return
        GridView2.DataSource = MyAdapter.Tables(1)
        GridView2.DataBind()
    End Sub

    Private Sub GridView2_RowCancelingEdit(sender As Object, e As GridViewCancelEditEventArgs) Handles GridView2.RowCancelingEdit
        GridView2.EditIndex = -1
        GridView2.DataSource = MyAdapter.Tables(1)
        GridView2.DataBind()
    End Sub

    Private Sub GridView2_RowUpdating(sender As Object, e As GridViewUpdateEventArgs) Handles GridView2.RowUpdating
        'MyAdapter.Tables(0).Rows(TryCast(sender, GridViewRow).RowIndex)("Name") = e.NewValues.Item("Name")
        'TryCast(sender, GridView).EditIndex
        For Each NewValue As DictionaryEntry In e.NewValues
            Debug.WriteLine(NewValue.Key)
            MyAdapter.Tables(1).Rows(e.RowIndex)(NewValue.Key) = e.NewValues.Item(NewValue.Key)
        Next

        For Each MyTable As DataTable In MyAdapter.Tables
            If MyTable.Rows(MyTable.Rows.Count - 1)("Name") <> "New Entry" Then
                MyTable.Rows.Add("New Entry", "")
            End If
        Next

        GridView2.EditIndex = -1
        GridView2.DataSource = MyAdapter.Tables(1)
        GridView2.DataBind()
        SaveCustomerData()
    End Sub

    Private Sub GridView1_RowUpdating(sender As Object, e As GridViewUpdateEventArgs) Handles GridView1.RowUpdating
        For Each NewValue As DictionaryEntry In e.NewValues
            Debug.WriteLine(NewValue.Key)
            MyAdapter.Tables(0).Rows(e.RowIndex)(NewValue.Key) = e.NewValues.Item(NewValue.Key)
        Next

        For Each MyTable As DataTable In MyAdapter.Tables
            If MyTable.Rows(MyTable.Rows.Count - 1)("Name") <> "New Entry" Then
                MyTable.Rows.Add("New Entry", "")
            End If
        Next

        GridView1.EditIndex = -1
        GridView1.DataSource = MyAdapter.Tables(0)
        GridView1.DataBind()
        SaveCustomerData()
    End Sub

    Private Sub GridView2_RowDeleting(sender As Object, e As GridViewDeleteEventArgs) Handles GridView2.RowDeleting
        If MyAdapter.Tables(1).Rows.Count > e.RowIndex Then
            'TryCast(sender, GridView).DeleteRow(e.RowIndex)
            MyAdapter.Tables(1).Rows(e.RowIndex).Delete()
            GridView2.DataSource = MyAdapter.Tables(1)
            GridView2.DataBind()
            SaveCustomerData()
        End If
    End Sub

    Private Sub GridView1_RowDeleting(sender As Object, e As GridViewDeleteEventArgs) Handles GridView1.RowDeleting
        If MyAdapter.Tables(0).Rows.Count > e.RowIndex Then
            MyAdapter.Tables(0).Rows(e.RowIndex).Delete()
            GridView1.DataSource = MyAdapter.Tables(0)
            GridView1.DataBind()
            SaveCustomerData()
        End If
    End Sub

    Private Sub Calendar1_SelectionChanged(sender As Object, e As EventArgs) Handles Calendar1.SelectionChanged
        Debug.WriteLine(Calendar1.SelectedDate)
        If GridView2.EditIndex > -1 Then
            MyAdapter.Tables(1).Rows(GridView2.EditIndex)("AppointmentDate") = Calendar1.SelectedDate.AddHours("7")
            GridView2.DataSource = MyAdapter.Tables(1)
            GridView2.DataBind()
        Else
            For Each MyRow As GridViewRow In GridView2.Rows
                If MyRow.RowIndex + 1 = GridView1.Rows.Count Then
                    Return
                End If
                MyRow.Visible = False
                If Date.Parse(MyRow.Cells(3).Text).Date.ToShortDateString = Calendar1.SelectedDate.ToShortDateString Then
                    MyRow.Visible = True
                    Debug.WriteLine(Date.Parse(MyRow.Cells(3).Text).Date.ToShortDateString)
                End If
            Next
        End If
    End Sub

    Private Sub Calendar1_DayRender(sender As Object, e As DayRenderEventArgs) Handles Calendar1.DayRender
        Debug.WriteLine(e.Day.Date.ToString)
        For Each MyEvent As DataRow In MyAdapter.Tables(1).Rows
            If Not IsNothing(MyEvent("AppointmentDate")) Then
                If MyEvent("AppointmentDate").ToString.Length > 0 Then
                    Dim Date1 As String = e.Day.Date.ToString
                    Dim Date2 As String = Date.Parse(MyEvent("AppointmentDate")).Date.ToString
                    If e.Day.Date.ToString = Date.Parse(MyEvent("AppointmentDate")).Date.ToString Then
                        e.Cell.BackColor = System.Drawing.Color.Beige
                    End If
                End If
            End If
        Next
    End Sub

 Public Function XmlDeserialize(Of T)(ByVal toDeserialize As String) As T
        Dim xmlSerializer As XmlSerializer = New XmlSerializer(GetType(T))

        Using textReader As StringReader = New StringReader(toDeserialize)
            Return CType(xmlSerializer.Deserialize(textReader), T)
        End Using
    End Function

    Public Function XmlSerialize(Of T)(ByVal toSerialize As T) As String
        Dim xmlSerializer As XmlSerializer = New XmlSerializer(GetType(T))

        Using textWriter As StringWriter = New StringWriter()
            xmlSerializer.Serialize(textWriter, toSerialize)
            Return textWriter.ToString()
        End Using
    End Function

End Class

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

198

199

200

201

202

203

204

205

206

207

208

209

210

211

212

213

214

215

216

217

218

219

220

221

222

223

224

225

226

227

228

229

230

231

232

233

234

235

236

237

238

239

240

241

242

243

Public Class Appointments

Inherits System.Web.UI.Page

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

End Sub

Private Shared MyAdapter As New DataSet

Private CustomerDataPath As String = Server.MapPath("~/") & "FileNameToSaveDataTo" & ".xml"

Private Sub _Default_Init(sender As Object, e As EventArgs) Handles Me.Init

If Not IsPostBack Then

LoadCustomerData()

If MyAdapter.Tables.Count = 0 Then

MyAdapter.Tables.Add("Clients")

MyAdapter.Tables(0).Columns.Add("Name")

MyAdapter.Tables(0).Columns.Add("Notes")

MyAdapter.Tables(0).Rows.Add("Client1", "test")

MyAdapter.Tables.Add("Calendar")

MyAdapter.Tables(1).Columns.Add("Name")

MyAdapter.Tables(1).Columns.Add("Notes")

MyAdapter.Tables(1).Columns.Add("AppointmentDate")

MyAdapter.Tables(1).Rows.Add("Client2", "test2", Now.Date)

SaveCustomerData()

End If

For Each MyTable As DataTable In MyAdapter.Tables

If MyTable.Rows.Count > 1 Then

If MyTable.Rows(MyTable.Rows.Count - 1)("Name") <> "New Entry" Then

MyTable.Rows.Add("New Entry", "")

End If

Else

MyTable.Rows.Add("New Entry", "")

End If

GridView1.DataSource = MyAdapter.Tables(0)

GridView1.DataBind()

GridView2.DataSource = MyAdapter.Tables(1)

GridView2.DataBind()

Debug.WriteLine("No Postback")

Else

Debug.WriteLine("Postback")

End If

Debug.WriteLine(PublicModule.XmlSerialize(MyAdapter))

Debug.WriteLine(Newtonsoft.Json.JsonConvert.SerializeObject(MyAdapter))

'JSON did not work at all

'Dim jss As New Script.Serialization.JavaScriptSerializer()

'Adapter2 = jss.Deserialize(Of DataSet)(Newtonsoft.Json.JsonConvert.SerializeObject(MyAdapter))

'Dim ADapter3 As DataSet = PublicModule.XmlDeserialize(Of DataSet)(PublicModule.XmlSerialize(MyAdapter))

Debug.WriteLine("Done")

End Sub

Private Function BindControls()

GridView1.DataSource = MyAdapter.Tables(0)

GridView1.DataBind()

GridView2.DataSource = MyAdapter.Tables(1)

GridView2.DataBind()

For Each MyRow As GridViewRow In GridView2.Rows

If MyRow.RowIndex + 1 = GridView2.Rows.Count Then

Exit For

End If

MyRow.Visible = False

If Date.Parse(MyRow.Cells(3).Text).Date.ToShortDateString = Calendar1.SelectedDate.ToShortDateString Then

MyRow.Visible = True

Debug.WriteLine(Date.Parse(MyRow.Cells(3).Text).Date.ToShortDateString)

End If

End Function

Private Function LoadCustomerData()

If IO.File.Exists(CustomerDataPath) Then

Dim FS As IO.FileStream = New IO.FileStream(CustomerDataPath, IO.FileMode.Open, IO.FileAccess.Read, IO.FileShare.Read)

Dim Data As New System.IO.StreamReader(FS)

Dim PublicXML = Data.ReadToEnd()

MyAdapter = PublicModule.XmlDeserialize(Of DataSet)(PublicXML)

Debug.WriteLine("RAW Data" & vbCrLf & PublicXML)

FS.Close()

FS.Dispose()

End If

End Function

Private Function SaveCustomerData()

Try

My.Computer.FileSystem.WriteAllText(CustomerDataPath, PublicModule.XmlSerialize(MyAdapter), False)

Debug.WriteLine("SaveCustomerData: Customer Data saved")

Return True

Catch ex As Exception

Debug.WriteLine(ex.Message)

End Try

Return False

End Function

Private Sub GridView1_RowEditing(sender As Object, e As GridViewEditEventArgs) Handles GridView1.RowEditing

GridView1.EditIndex = e.NewEditIndex

GridView1.DataSource = MyAdapter.Tables(0)

GridView1.DataBind()

End Sub

Private Sub GridView1_RowCancelingEdit(sender As Object, e As GridViewCancelEditEventArgs) Handles GridView1.RowCancelingEdit

GridView1.EditIndex = -1

GridView1.DataSource = MyAdapter.Tables(0)

GridView1.DataBind()

End Sub

Private Sub GridView2_RowEditing(sender As Object, e As GridViewEditEventArgs) Handles GridView2.RowEditing

GridView2.EditIndex = e.NewEditIndex

BindControls()

Return

GridView2.DataSource = MyAdapter.Tables(1)

GridView2.DataBind()

End Sub

Private Sub GridView2_RowCancelingEdit(sender As Object, e As GridViewCancelEditEventArgs) Handles GridView2.RowCancelingEdit

GridView2.EditIndex = -1

GridView2.DataSource = MyAdapter.Tables(1)

GridView2.DataBind()

End Sub

Private Sub GridView2_RowUpdating(sender As Object, e As GridViewUpdateEventArgs) Handles GridView2.RowUpdating

'MyAdapter.Tables(0).Rows(TryCast(sender, GridViewRow).RowIndex)("Name") = e.NewValues.Item("Name")

'TryCast(sender, GridView).EditIndex

For Each NewValue As DictionaryEntry In e.NewValues

Debug.WriteLine(NewValue.Key)

MyAdapter.Tables(1).Rows(e.RowIndex)(NewValue.Key) = e.NewValues.Item(NewValue.Key)

For Each MyTable As DataTable In MyAdapter.Tables

If MyTable.Rows(MyTable.Rows.Count - 1)("Name") <> "New Entry" Then

MyTable.Rows.Add("New Entry", "")

End If

GridView2.EditIndex = -1

GridView2.DataSource = MyAdapter.Tables(1)

GridView2.DataBind()

SaveCustomerData()

End Sub

Private Sub GridView1_RowUpdating(sender As Object, e As GridViewUpdateEventArgs) Handles GridView1.RowUpdating

For Each NewValue As DictionaryEntry In e.NewValues

Debug.WriteLine(NewValue.Key)

MyAdapter.Tables(0).Rows(e.RowIndex)(NewValue.Key) = e.NewValues.Item(NewValue.Key)

For Each MyTable As DataTable In MyAdapter.Tables

If MyTable.Rows(MyTable.Rows.Count - 1)("Name") <> "New Entry" Then

MyTable.Rows.Add("New Entry", "")

End If

GridView1.EditIndex = -1

GridView1.DataSource = MyAdapter.Tables(0)

GridView1.DataBind()

SaveCustomerData()

End Sub

Private Sub GridView2_RowDeleting(sender As Object, e As GridViewDeleteEventArgs) Handles GridView2.RowDeleting

If MyAdapter.Tables(1).Rows.Count > e.RowIndex Then

'TryCast(sender, GridView).DeleteRow(e.RowIndex)

MyAdapter.Tables(1).Rows(e.RowIndex).Delete()

GridView2.DataSource = MyAdapter.Tables(1)

GridView2.DataBind()

SaveCustomerData()

End If

End Sub

Private Sub GridView1_RowDeleting(sender As Object, e As GridViewDeleteEventArgs) Handles GridView1.RowDeleting

If MyAdapter.Tables(0).Rows.Count > e.RowIndex Then

MyAdapter.Tables(0).Rows(e.RowIndex).Delete()

GridView1.DataSource = MyAdapter.Tables(0)

GridView1.DataBind()

SaveCustomerData()

End If

End Sub

Private Sub Calendar1_SelectionChanged(sender As Object, e As EventArgs) Handles Calendar1.SelectionChanged

Debug.WriteLine(Calendar1.SelectedDate)

If GridView2.EditIndex > -1 Then

MyAdapter.Tables(1).Rows(GridView2.EditIndex)("AppointmentDate") = Calendar1.SelectedDate.AddHours("7")

GridView2.DataSource = MyAdapter.Tables(1)

GridView2.DataBind()

Else

For Each MyRow As GridViewRow In GridView2.Rows

If MyRow.RowIndex + 1 = GridView1.Rows.Count Then

Return

End If

MyRow.Visible = False

If Date.Parse(MyRow.Cells(3).Text).Date.ToShortDateString = Calendar1.SelectedDate.ToShortDateString Then

MyRow.Visible = True

Debug.WriteLine(Date.Parse(MyRow.Cells(3).Text).Date.ToShortDateString)

End If

End Sub

Private Sub Calendar1_DayRender(sender As Object, e As DayRenderEventArgs) Handles Calendar1.DayRender

Debug.WriteLine(e.Day.Date.ToString)

For Each MyEvent As DataRow In MyAdapter.Tables(1).Rows

If Not IsNothing(MyEvent("AppointmentDate")) Then

If MyEvent("AppointmentDate").ToString.Length > 0 Then

Dim Date1 As String = e.Day.Date.ToString

Dim Date2 As String = Date.Parse(MyEvent("AppointmentDate")).Date.ToString

If e.Day.Date.ToString = Date.Parse(MyEvent("AppointmentDate")).Date.ToString Then

e.Cell.BackColor = System.Drawing.Color.Beige

End If

End Sub

Public Function XmlDeserialize(Of T)(ByVal toDeserialize As String) As T

Dim xmlSerializer As XmlSerializer = New XmlSerializer(GetType(T))

Using textReader As StringReader = New StringReader(toDeserialize)

Return CType(xmlSerializer.Deserialize(textReader), T)

End Using

End Function

Public Function XmlSerialize(Of T)(ByVal toSerialize As T) As String

Dim xmlSerializer As XmlSerializer = New XmlSerializer(GetType(T))

Using textWriter As StringWriter = New StringWriter()

xmlSerializer.Serialize(textWriter, toSerialize)

Return textWriter.ToString()

End Using

End Function

End Class

Easy GridView editing with Calendar control in VB ASP.NET

Leave a comment

Cancel reply