hola compañero foreros bueno...queria hacerle una consulta...quisiera agregar un elemento a listview pero utilizando esto:
Código vb:
Ver originalf CnSqlP.State = ConnectionState.Open Then CnSqlP.Close()
CnSqlP.Open()
' propiedades del SqlCommand
Dim comando As New NpgsqlCommand
With comando
.CommandType = CommandType.Text
.CommandText = Sql
.Connection = CnSqlP
End With
Dim DA As New NpgsqlDataAdapter ' Crear nuevo SqlDataAdapter
Dim DataSet As New DataSet ' Crear nuevo dataset
DA.SelectCommand = comando
' llenar el dataset
DA.Fill(DataSet, "Tabla")
' Propiedades del ListView
With ListView
.Items.Clear()
.Columns.Clear()
.View = View.Details
.GridLines = True
.FullRowSelect = True
' añadir los nombres de columnas
.Columns.Add("CODIGO", 55, HorizontalAlignment.Left)
.Columns.Add("COMISION", 65, HorizontalAlignment.Left)
.Columns.Add("FECHA INICIO", 90, HorizontalAlignment.Left)
.Columns.Add("HORARIOS", 140, HorizontalAlignment.Left)
.Columns.Add("ALUMNOS", 80, HorizontalAlignment.Left)
End With
' Añadir los registros de la tabla
With DataSet.Tables("tabla")
For f As Integer = 0 To .Rows.Count - 1
Dim dato As New ListViewItem(.Rows(f).Item(0).ToString)
' recorrer las columnas
For c As Integer = 1 To .Columns.Count - 1
dato.SubItems.Add(.Rows(f).Item(c).ToString())
Next
ListView.Items.Add(dato)
Next
End With
o sea aca ingreso los datos q vienen de una consulta...el tema es que en la columna ALUMNO quiero agregar un elemento que en este caso es un nro...
o sea dnd dice:
For c As Integer = 1 To .Columns.Count - 1
c=5 ingresar el nro, caso contrario ingreso los valores de la consulta...
if c=5 then
ingreso el nro
else
dato.SubItems.Add(.Rows(f).Item(c).ToString())
end if
Next
espero haberme explicado...desde ya muchas gracias...
pd:utilizo vb.net(2005)