DataGridViewComboBoxColumn

[ginosan]

ya lo resolvi ayer, espero y le sirva a alguien.

Dim sQuery As String = ""
Dim sConexion As String = Negocio.Conexion
Dim Ds_Datos As New DataSet
Dim KROW As Integer = 0
Dim v As Integer

Try

For KROW = 0 To Me.DGVMateriasRequisitos.RowCount - 2

v = Me.DGVMateriasRequisitos.CurrentCell.RowIndex
'aqui pregunto si el enfoq esta en la ultima fila sino
'muevo el enfoq al siguiente registro

If v < Me.DGVMateriasRequisitos.RowCount - 1 Then
Me.DGVMateriasRequisitos.CurrentCell = Me.DGVMateriasRequisitos.Item(0, v + 1)
End If

sQuery = "spi_spsatbrequisito_asignatura " & Codigo & "," & Me.DGVMateriasRequisitos.Rows(KROW).Cells(0).Value

Ds_Datos = Accesar_Datos.GetDataSet(sQuery, sConexion)
Next KROW
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error")
End Try

'chau