Dim DT As DataTable = DV.Table Dim dr As DataRow = DT.NewRow Dim DV3 As New DataView(DT) Dim sql As String = "select * from customer" DA = New SqlDataAdapter(sql, cons) DA.Fill(DT) DV3.RowStateFilter = DataViewRowState.Added If DV3.Count = 0 Then dr("Cus_id") = 1 dr("Cus_id") = DT.Rows(0)("Cus_id") Dim iCount As Integer = DT.Compute("max(Cus_id)", "") dr("Cus_id") = iCount + 1 'dr("Cus_name") = 0 'dr("Cus_lastname") = 0 'dr("Cus_address") = 0 'dr("Cus_tel") = 0 'dr("Id_card") = 0 'dr("username") = 0 'dr("password") = 0 'dr("question") = 0 'dr("answer") = 0 'dr("email") = 0 DT.Rows.Add() 'DV3.RowStateFilter = DataViewRowState.Added End If GridView1.PageIndex = 0 GridView1.EditIndex = 0 Me.MyGridBy() 'checklastrow()
Quote:If DV3.Count = 0 Then
Quote:Cus_name
เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง