Private Sub DataGridView1_CellContentClick_1(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
Try
TxtModclave.Text() = DataGridView1.Rows(e.RowIndex).Cells(1).Value()
TxtModDescrip.Text() = DataGridView1.Rows(e.RowIndex).Cells(2).Value()
TxtModCosto.Text() = DataGridView1.Rows(e.RowIndex).Cells(3).Value()
TxtModidCat.Text() = DataGridView1.Rows(e.RowIndex).Cells(11).Value()
TabControl1.SelectedIndex = 2
llenarcombo2()
Catch ex As Exception
MessageBox.Show("Selecciona campos que contengan algun registro")
End Try
End Sub
Private Sub llenarcombo2()
Dim combomod As New SqlDataAdapter("select * from Categorias where id_categoria = '" & TxtCat.Text & "'", conex)
Dim tabla2 As New DataTable
combomod.Fill(tabla2)
For Each fila As DataRow In tabla2.Rows
ComboCategoria.Items.Add(fila("Descripción"))
Next
End Sub