Str_Sql = "SELECT sub_type_code , remark FROM tbl_detail " & _ "WHERE user_id = " & Dr("user_id").ToString & " AND type_code = 06 " Da_Problem.MissingSchemaAction = MissingSchemaAction.AddWithKey Da_Problem.SelectCommand = New SqlCommand(Str_Sql, Con) Try Da_Problem.Fill(Ds_Problem, "problem") Catch ex As Exception MessageBox.Show(ex.Message) End Try
For i as short = 0 To DataGV.Rows.Count - 2 If Me.DataGV.Rows(i).Cells(0).Value = me.txtID.text Then messagebox.show(Me.DataGV.Rows(i).Cells(0).Value) End If Next
เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง