If e.RowIndex = -1 Then Exit Sub With dgvCustomerList txtCustomerID.Text = .Rows.Item(e.RowIndex).Cells(0).Value.ToString() txtFullName.Text = .Rows.Item(e.RowIndex).Cells(1).Value.ToString() If optmale.Text = .Rows.Item(e.RowIndex).Cells(2).Value.ToString() Then Else optFemale.Text = .Rows.Item(e.RowIndex).Cells(2).Value.ToString() End If txtIDCard.Text = .Rows.Item(e.RowIndex).Cells(3).Value.ToString() txtAddress.Text = .Rows.Item(e.RowIndex).Cells(4).Value.ToString() txtTelephone.Text = .Rows.Item(e.RowIndex).Cells(5).Value.ToString() txtAllergic.Text = .Rows.Item(e.RowIndex).Cells(6).Value.ToString() cboCustomerType.Text = .Rows.Item(e.RowIndex).Cells(7).Value.ToString() cboBranch.Text = .Rows.Item(e.RowIndex).Cells(8).Value.ToString() dtpAdmitDate.Text = .Rows.Item(e.RowIndex).Cells(9).Value.ToString() dtpExpireDate.Text = .Rows.Item(e.RowIndex).Cells(10).Value.ToString() txtPaid.Text = .Rows.Item(e.RowIndex).Cells(11).Value.ToString() txtCustomerID.Show() txtFullName.Show() optmale.Checked = True txtIDCard.Show() txtAddress.Show() txtTelephone.Show() txtAllergic.Show() cboCustomerType.Show() cboBranch.Show() dtpAdmitDate.Show() dtpExpireDate.Show() txtPaid.Show() End With
If dgvCustomerList.Rows.Item(e.RowIndex).Cells(2).Value.ToString()="ชาย" Then optmale.checked=true Else optFemale.checked=true End If
เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง