01.Dim dt As New DataTable
02.Dim dr As DataRow
03.
04. Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
05.
06. If (Me.Session("x") Is Nothing) Then
07.
08. dt = New DataTable
09.
10. dt.Columns.Add("A")
11. dt.Columns.Add("B")
12. dt.Columns.Add("C")
13.
14. dr = dt.NewRow
15. dr("A") = "a"
16. dr("B") = "b"
17. dr("C") = "c"
18.
19. Me.Session("x") = dt
20.
21. Else
22. dt = Me.Session("x")
23. End If
24.
25. End Sub
26.
27.
28. Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
29.
30. dr = dt.NewRow()
31. dr("A") = ""
32. dr("B") = ""
33. dr("C") = ""
34. dt.Rows.Add(dr)
35.
36. GridView1.DataSource = dt
37. GridView1.DataBind()
38.
39. End Sub
