01.Private Sub dgvPatient_CellMouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles dgvPatient.CellMouseUp
02. If e.RowIndex = -1 Then Exit Sub
03. With dgvPatient
04. txtPatID.Text = CStr(.Rows.Item(e.RowIndex).Cells("PatID").Value.ToString)
05. mskPeoID.Text = CStr(.Rows.Item(e.RowIndex).Cells("PatCard").Value.ToString)
06. txtFullName.Text = CStr(.Rows.Item(e.RowIndex).Cells("PatFullName").Value.ToString)
07. dtpBirthDay.Value = CDate(.Rows.Item(e.RowIndex).Cells("PatBirthDay").Value.ToString)
08. cboBlood.SelectedItem = CStr(.Rows.Item(e.RowIndex).Cells("PatBlood").Value.ToString)
09. txtHight.Text = CStr(.Rows.Item(e.RowIndex).Cells("PatHight").Value.ToString)
10. txtWeight.Text = CStr(.Rows.Item(e.RowIndex).Cells("PatWeight").Value.ToString)
11. txtWork.Text = CStr(.Rows.Item(e.RowIndex).Cells("PatWork").Value.ToString)
12. txtFixed.Text = CStr(.Rows.Item(e.RowIndex).Cells("PatFixed").Value.ToString)
13. txtLose.Text = CStr(.Rows.Item(e.RowIndex).Cells("PatLose").Value.ToString)
14. mskPhone.Text = CStr(.Rows.Item(e.RowIndex).Cells("PatPhone").Value.ToString)
15. txtAddress.Text = CStr(.Rows.Item(e.RowIndex).Cells("PatAddress").Value.ToString)
16. cboCard.SelectedValue = CStr(.Rows.Item(e.RowIndex).Cells("CardID").Value.ToString)
17. End With
18. tsAdd.Enabled = False
19. tsSave.Enabled = False
20. tsEdit.Enabled = True
21. End Sub
