Private Sub DataGridView_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) _
Handles DataGridView.SelectionChanged
With DataGridView1
If .RowCount > 0 Then
If Not .CurrentRow.Cells("EMP_NO").Value Is DBNull.Value Then
Label1.Text = .CurrentRow.Cells("EMP_NO").Value
Else
Label1.Text = "-"
End If
End If
End With
End Sub
Private Sub DataGridView1_SelectionChanged(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles DataGridView1.SelectionChanged
Dim row As DataGridViewRow = DataGridView1.CurrentRow
TextBox1.Text = row.Cells(0).Value.ToString()
TextBox2.Text = row.Cells(1).Value.ToString()
TextBox3.Text = row.Cells(2).Value.ToString()
End Sub
No comments:
Post a Comment