If IsNothing(Session("dt")) Then dt.Clear() dt.Columns.Add("Pro_id") dt.Columns.Add("Pro_name") ' dt.Columns.Add("Pro_model") dt.Columns.Add("Pro_type") Else dt = Session("dt") End If '////////////ต้องวนลูป 'for Dim row As DataRow row = dt.NewRow ' ---- สร้าง row ใหม่เปล่าๆ ของตารางที่ต้องการ row("Pro_id") = e.Item.Cells(0).Text row("Pro_name") = e.Item.Cells(1).Text ' row("Pro_model") = e.Item.Cells(2).Text row("Pro_type") = e.Item.Cells(2).Text Session.Contents("PID") = row("Pro_id") '////// 'next dt.Rows.Add(row) ' ---- เอาตัวแปร row ที่แต่งตัวเสร็จแล้ว เพิ่มเข้าตาราง dt.AcceptChanges() 'ShowData() Session("dt") = dt 'เอาไว้ตอน save Me.DGProduct.DataKeyField = "Pro_id" Me.DGProduct.DataSource = dt.DefaultView Me.DGProduct.DataBind() Me.DGProduct.Visible = True 'End If
GridView1.AutoGenerateDeleteButton = True
GridView1.DataKeyNames = "ชื่อฟิลที่เป็นคีย์"
Private Sub GridView1_RowDeleted(ByVal sender As [Object], ByVal e As GridViewDeletedEventArgs) Dim aRowToDelete As Intrget = e.Row.DataKeys(e.Row.RowIndex) 'เอา Key ที่ได้ไปลบข้อมูลที่ต้องการ End Sub
เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง