Ver Mensaje Individual
  #1 (permalink)  
Antiguo 24/02/2010, 09:46
ginosan
 
Fecha de Ingreso: febrero-2010
Ubicación: manabi - ecuador
Mensajes: 22
Antigüedad: 14 años, 2 meses
Puntos: 0
Pregunta DataGridViewComboBoxColumn

hola amigos de foros del web!! soy nuevo en esto de visual studio y en este caso estoy trabajando con el 2005 y tengo el siguiente codigo:

Private Sub BtnAddRequisito_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAddRequisito.Click
Dim sConexion As String = Negocio.Conexion
Dim Ds_datos As New DataSet
Dim sQuery As String

CboRequisitoColumn.Name = "Materia"
Me.DGVMaterias.Columns.Add(CboRequisitoColumn)
sQuery = "SELECT asg_codigo as codigo, asg_nombre as descripcion FROM spsatbasignatura where asg_semestre<" & Me.CMBSemestre.Text

Ds_datos = Accesar_Datos.GetDataSet(sQuery, sConexion)
my_DGVCboColumn.DataSource = Ds_datos.Tables(0)
my_DGVCboColumn.Name = "Datos"
my_DGVCboColumn.DisplayMember = Ds_datos.Tables(0).Columns("descripcion").ToString
my_DGVCboColumn.ValueMember = Ds_datos.Tables(0).Columns("codigo").ToString Me.DGVMaterias.Columns.RemoveAt(0)
Me.DGVMaterias.Columns.Insert(0, my_DGVCboColumn)
End Sub
'aqui creo el datagridcombocolumn dentro del datagridview
'lo q necesito saber es como hago para insertar el dato
'q se encuentra dentro del objeto y es ahi donde aparece el siguiente codigo

Private Sub Agregar_Requisitos()
Dim sQuery As String = ""
Dim sConexion As String = Negocio.Conexion
Dim Ds_Datos As New DataSet
Dim KROW As Integer = 0
Dim aux As String
Dim r As Integer

Try
For KROW = 0 To Me.DGVMaterias.RowCount - 1

aux = Me.my_DGVCboColumn.Items(KROW).ToString()
r = CType(aux, Integer)

sQuery = "spi_spsatbrequisito_asignatura " & Codigo & "," & r & ""

Ds_Datos = Accesar_Datos.GetDataSet(sQuery, sConexion)

Next KROW
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error")
End Try

End Sub

'y me aparece el siguiente mensaje:
' La conversion de la cadena "System.Data.DataRowView" en el tipo "Integer' no es valida.