'เหตุการณ์คลิกที่คอนโทรล DataGridview
Private Sub grdBookType_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles grdBookType.MouseUp
Dim UserSelectRow As Integer = 0 'ตัวแปรเก็บแถวที่ถูกคลิก
If IsFind = True Then 'ถ้ามีข้อมูล
'อ่านแถวที่ถูกผู้ใช้คลิกเก็บไว้ในตัวแปร UserSelectRow
UserSelectRow = grdBookType.CurrentRow.Index
'อ่านค่าต่างๆ จากแต่ละคอลัมน์
txtBookTypeCode.Text = CStr(grdBookType.Item(UserSelectRow,0 ))
txtBookTyeName.Text = CStr(grdBookType.Item(UserSelectRow,1 ))
txtBookTyeName.Focus()
End If
End Sub
private sub dtg_cellmouseclick(byval .....)
if e.rowindex = -1 then exit sub
with dtg
txtBookTypeCode.Text = .Rows.Item(e.RowIndex).Cells(0).Value.ToString()
txtBookTyeName.Text =.Rows.Item(e.RowIndex).Cells(1).Value.ToString()
end with
end sub
Load balance : Server 01
