Visual Basic.NET - listbox completo a columna de datagrid

   
Vista:

listbox completo a columna de datagrid

Publicado por Ortzi (9 intervenciones) el 20/02/2009 10:41:51
Hola a todos,
mi intencion es pasar todos los valores de un listbox a una columna de un datagrid. exactamente quiero repetir esa accion y pasar dos listbox enteros a dos columnas de un mismo datagrid.

tengo codigo cedido por Damian que introduce un elemento seleccionado del listbox en el datagrid.

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
DataGridView1.Item(0, 0).Value = ListBox1.Text
End Sub

Muchas gracias por vuestra atencion , un saludo
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:listbox completo a columna de datagrid

Publicado por christian (174 intervenciones) el 20/02/2009 19:37:12
hay varias cosas que se deberian saber antes, la primera es si el datagrid ya tiene datos o esta en blanco.

Para pasarlo en un datagrid blanco
Es muy facil tienes que armar un for each que reciba las listas y llene un data table que contendra las 2 columnas y la cantidad de filas de cada list. luego solo tenes que hacer databind de la tabla con el datagrid.

saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:listbox completo a columna de datagrid

Publicado por ortzi (9 intervenciones) el 20/02/2009 19:47:51
buenas , muchas gracias.

al final me he apañado pasandolo a un excel directamente...

Pero me apunto tu ayuda muchas gracias nuevamente.


Private Sub Command3_Click()
Dim xlApp As Excel.Application
Dim xlSh As Excel.Worksheet
Dim i As Long
Dim y As Long

Set xlApp = New Excel.Application

xlApp.Visible = True
xlApp.Workbooks.Add
Set xlSh = xlApp.Workbooks(1).Worksheets(1)

For i = 1 To List1.ListCount

xlSh.Cells(i, 1).Value = List1.List(i - 1)

Next

For y = 1 To List2.ListCount

xlSh.Cells(y, 2).Value = List2.List(y - 1)

Next

Set xlSh = Nothing
Set xlApp = Nothing

End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar