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
