none
Erros al cargar data gred mediante consulta RRS feed

  • Pregunta

  • Tengan mis cordiales saludos,Tengo un problema con la ubicación de las columnas. 

    1.Esto es para crear columnas en mi gredd

    Private Sub Detalle_compras_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            DataGridView1.ColumnCount = 14
            DataGridView1.Columns(0).Name = "id"
            DataGridView1.Columns(1).Name = "idcliente"
            DataGridView1.Columns(2).Name = "Periodo"
            DataGridView1.Columns(3).Name = "mes"
            DataGridView1.Columns(4).Name = "Asiento contable"
            DataGridView1.Columns(5).Name = "Fecha operacion"
            DataGridView1.Columns(6).Name = "Glosa"
            DataGridView1.Columns(7).Name = "Cod Libro"
            DataGridView1.Columns(8).Name = "Num_doc"
            DataGridView1.Columns(9).Name = "Cod plan de cuentas"
            DataGridView1.Columns(10).Name = "Cuenta"
            DataGridView1.Columns(11).Name = "Denominacion"
            DataGridView1.Columns(12).Name = "Debe"
            DataGridView1.Columns(13).Name = "Haber"
            DataGridView1.Columns("Debe").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
            DataGridView1.Columns("Haber").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        End Sub

    2.Esto es un procedimiento que uso para consultar los valores de una tabla y al mismo tiempo crear filas

        Public Function consultar_amarre(ByVal var_cuenta As Integer, ByVal var_datagred As DataGridView) As DataTable
            conectado()
            Dim cmd As New SqlCommand("select * from dbo.tabla_amarres where cuenta='" & var_cuenta & "'", cnn)
            dr = cmd.ExecuteReader
            While dr.Read

             Esto me consulta los valores de las columnas

                var_datagred.Rows.Add(dr(2))
                var_datagred.Rows.Add(dr(3))
            End While
            Return Nothing
        End Function

    3.Con esto creo filas individuales y al mismo tiempo llamo al procedimiento consulta

        Private Sub BtnAgregar_Click(sender As Object, e As EventArgs) Handles BtnAgregar.Click

            Dim Columna(14) As String

            'Para la primera fila
            Columna(0) = TxtId.Text
            Columna(1) = Principal.ToolStripLabelid.Text
            Columna(2) = Registro_compras.DomwEjercicio.Text
            Columna(3) = Registro_compras.ToolStripCmbPeriodo.ComboBox.SelectedValue
            Columna(4) = TxtNRC.Text
            Columna(5) = FechaEmision.Text
            Columna(6) = TxtGlosa.Text
            Columna(7) = "8"
            Columna(8) = TxtSerie.Text & "/" & TxtNumInicial.Text & "-" & TxtNumFinal.Text
            Columna(9) = "plan de cuentas"
            Columna(10) = TxtCuentaInicial.Text
            Columna(11) = TxtDenominacionInicial.Text
            Columna(12) = TxtBaseImponible.Text
            DataGridView1.Rows.Add(Columna)

            'la tercera fila
            If CmbTipoRetencion.Text = "Percepcion" Then
                Columna(10) = "40117"
                Columna(11) = "PERCEPCIONES"
                Columna(12) = Txtotros.Text
                Columna(13) = "0.00"
            ElseIf CmbTipoRetencion.Text = "Retencion" Then
                Columna(10) = "40118"
                Columna(11) = "RETENCIONES"
                Columna(12) = "R"
                Columna(13) = "0.00"
            ElseIf CmbTipoRetencion.Text = "Detraccion" Then
                Columna(10) = "42111"
                Columna(11) = "DETRACCIONES"
                Columna(12) = "0.00"
                Columna(13) = "D"
            Else
                DataGridView1.Rows.RemoveAt(DataGridView1.CurrentRow.Index)
            End If
            DataGridView1.Rows.Add(Columna)

            'La segunda fila
            If TxtIGV.Text <> "0.00" Then
                Columna(10) = "40111"
                Columna(11) = "TRIBUTOS POR PAGAR"
                Columna(12) = TxtIGV.Text
            Else
                DataGridView1.Rows.RemoveAt(DataGridView1.CurrentRow.Index)
            End If
            Columna(13) = "0.00"
            DataGridView1.Rows.Add(Columna)

            'La cuarta fila
            Columna(10) = TxtCuentaCierre.Text
            Columna(11) = TxtDenominacionCierre.Text
            Columna(12) = "0.00"
            Columna(13) = TxtMonto.Text
            DataGridView1.Rows.Add(Columna)

    "aqui me da el error no me coloca en la columna 10 si no en la primera columna
            Columna(10) = Convert.ToString(objcompras.consultar_amarre(TxtCuentaInicial.Text, DataGridView1))

        End Sub

    • Cambiado Enrique M. Montejo lunes, 5 de octubre de 2015 11:54 Pregunta relacionada con controles de Windows Forms.
    sábado, 3 de octubre de 2015 15:45