01.Imports System.Data
02.
03.Partial Class DeleteGridView
04. Inherits System.Web.UI.Page
05.
06. Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
07. Dim CustomerData As SqlDatabaseManager = New SqlDatabaseManager()
08. Dim CustomerDataTable As DataTable = New DataTable()
09.
10. CustomerData.CommandString = "Select * From [Customer] Where [TypeID]=1"
11. CustomerDataTable = CustomerData.ExecuteQuery()
12.
13. Dim ID As BoundField = New BoundField()
14. Dim CustomerName As HyperLinkField = New HyperLinkField()
15. Dim CustomerPhone As BoundField = New BoundField()
16. Dim DeleteButton As CommandField = New CommandField()
17.
18. ID.HeaderText = "#"
19.
20. CustomerName.HeaderText = "ชื่อลูกค้า"
21. CustomerName.DataTextField = "CustomerThaiName"
22.
23. CustomerPhone.HeaderText = "โทรศัพท์"
24. CustomerPhone.DataField = "CustomerPhone"
25.
26. DeleteButton.HeaderText = "ลบ"
27. DeleteButton.ButtonType = ButtonType.Image
28. DeleteButton.ShowEditButton = False
29. DeleteButton.ShowDeleteButton = True
30. DeleteButton.DeleteImageUrl = "~/images/delete-16x16.png"
31.
32. Dim KeyNames() As String = New String() {"CustomerCode"}
33.
34. GridView1.AutoGenerateColumns = False
35. GridView1.DataKeyNames = KeyNames
36.
37. If Not IsPostBack Then
38. GridView1.Columns.Add(ID)
39. GridView1.Columns.Add(CustomerName)
40. GridView1.Columns.Add(CustomerPhone)
41. GridView1.Columns.Add(DeleteButton)
42. GridView1.DataSource = CustomerDataTable
43. GridView1.DataBind()
44. End If
45. End Sub
46.
47. Protected Sub GridView1_RowDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GridView1.RowDataBound
48. If e.Row.RowType = DataControlRowType.DataRow Then
49. Dim CustomerLink As HyperLink = CType(e.Row.Cells(1).Controls(0), HyperLink)
50. Dim CustomerDeleteButton As ImageButton = CType(e.Row.Cells(3).Controls(0), ImageButton)
51.
52. e.Row.Cells(0).Text = e.Row.RowIndex + 1
53. CustomerLink.NavigateUrl = "~/customer.aspx?id=" & GridView1.DataKeys(e.Row.RowIndex).Value
54. CustomerDeleteButton.OnClientClick = "return confirm('คุณต้องการลบข้อมูลนี้ใช่หรือไม่?')"
55. CustomerDeleteButton.ToolTip = "ลบ"
56. End If
57. End Sub
58.
59. Protected Sub GridView1_RowDeleting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GridView1.RowDeleting
60. Dim CustomerData As SqlDatabaseManager = New SqlDatabaseManager()
61.
62. CustomerData.CommandString = "Delete From [Customer] Where [CusotmerCode]=@CustomerCOde"
63. CustomerData.AddParameter("@CustomerCode", SqlDbType.NVarChar, GridView1.DataKeys(e.RowIndex).Value)
64. CustomerData.ExecuteNonQuery()
65.
66. CustomerData.CommandString = "Select * From [Customer] Where [TypeID]=1"
67. GridView1.DataSource = CustomerData.ExecuteQuery()
68. GridView1.DataBind()
69. End Sub
70.End Class
