Private Sub DataGridView1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
IDU = ""
If e.RowIndex = -1 Then Exit Sub
With GridControl1
TXT_Type_N.Text = CStr(.Rows(e.RowIndex).Cells(1).Value)
IDU = CStr(.Rows(e.RowIndex).Cells(0).Value)
End With
End Sub