![Antiguo](http://static.forosdelweb.com/fdwtheme/images/statusicon/post_old.gif)
24/02/2010, 09:46
|
| | Fecha de Ingreso: febrero-2010 Ubicación: manabi - ecuador
Mensajes: 22
Antigüedad: 15 años Puntos: 0 | |
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. |