hola amigos foreanos nuevamente requiriendo de sus conocimientos, permitanme contarle mi pequeño problema estoy utilizando el Flexgrid del componentOne, pero eso es nuevo para mi, deseo saber como puedo llenar todo el flex grid,campos por capos y en todo el registro necesito levantar un combo. tanto como visualizar y a la vez ingresar. el llenado me sale bien cuando utilizo la propiedad del FG.DataSource = DtListaDetalle. pero todo el formato que le doy antes se pierde. no se si hay otra forma. espero me puedan ayudar Saludos.



Atte.

IPC

__________________
Saludos Peru

ya veo que nadie me puede ayudar yo misno me tengo que dar solucion a mis problemas tambien encontre la solucion al problema.

que es la siguente veo que el foro se esta callendo.no hay repuestas.

Private Sub FormatoFlex(ByVal fg As C1.Win.C1FlexGrid.C1FlexGrid)
' set up grid
fg.Cols.Count = 14
fg.Rows.Fixed = 1

' set up grid
Dim index As Integer
For index = fg.Rows.Fixed To fg.Rows.Count - 1
fg(index, 0) = index
Next

'column 0:
Dim c As Column

c = fg.Cols(0)
c.Width = 5
'column 1: Nro
c = fg.Cols(1)
c.Name = "Nro"
c.DataType = GetType(Integer)
c.TextAlign = TextAlignEnum.LeftCenter
c.Width = 40

' column 2: Codigo
c = fg.Cols(2)
c.Name = "Código"
c.DataType = GetType(String)
c.TextAlign = TextAlignEnum.LeftCenter
c.Width = 80

' column 3: Cantidad
c = fg.Cols(3)
c.Name = "Cantidad"
c.DataType = GetType(Decimal)
c.TextAlign = TextAlignEnum.LeftCenter
c.Width = 60

' column 3: Temperatura
c = fg.Cols(4)
c.Name = "Temperatura"
c.DataType = GetType(Decimal)
c.TextAlign = TextAlignEnum.LeftCenter
c.Width = 60

' column 4: Peso
c = fg.Cols(5)
c.Name = "Peso Kgs"
c.DataType = GetType(Decimal)
c.TextAlign = TextAlignEnum.LeftCenter
c.Width = 60

' column 5: Tara
c = fg.Cols(6)
c.Name = "Tara"
c.DataType = GetType(Integer)
c.TextAlign = TextAlignEnum.LeftCenter
c.Width = 60

' column 6: Producto
c = fg.Cols(7)
c.Name = "Producto"
c.DataType = GetType(String)
c.ComboList = "..."
c.Width = 70
'c.EditMask = "000/000-0000"

' column 7: Cajas Peso
c = fg.Cols(8)
c.Name = "Tipo Caja"
c.DataType = GetType(String)
c.ComboList = "..."
c.Width = 60

'Column 8: Notas y Observaciones
c = fg.Cols(9)
c.Name = "Notas y Observaciones"
c.DataType = GetType(String)
c.Width = 150
'Column 9: Punta Floriada
c = fg.Cols(10)
c.Name = "PF"
c.DataType = GetType(Boolean)
c.ImageAlign = ImageAlignEnum.CenterCenter
c.Width = 40
'Column 10: Curvatura
c = fg.Cols(11)
c.Name = "CV"
c.DataType = GetType(Boolean)
c.ImageAlign = ImageAlignEnum.CenterCenter
c.Width = 40
'Column 11: Blanco esparrago
c = fg.Cols(12)
c.Name = "%B"
c.DataType = GetType(Boolean)
c.ImageAlign = ImageAlignEnum.CenterCenter
c.Width = 40
'Column 12: notas de Calidad
c = fg.Cols(13)
c.Name = "Notas Calidad"
c.DataType = GetType(String)
c.ImageAlign = ImageAlignEnum.LeftCenter
c.Width = 150
'Column(names)
For index = 0 To fg.Cols.Count - 1
fg(0, index) = fg.Cols(index).Name
Next
End Sub


este es el formato antes de llenar el FlexGrid
ahora llenamos el FlexGrid


FgDetalleRi.DataSource = dtDetalleRI
FormatoFlex(FgDetalleRi)

__________________
Saludos Peru

Pues, verás, amigo maynor19... No creo que hayas hecho nada de más al buscarte tú mismo la solución a tus problemas, que es más o menos lo que hacemos los demás...

El foro habitualmente da respuesta, más bien respuestassss a cuantas cuestiones se plantean. Si la tuya se ha quedado de vacío, te animo a que pienses si la planteaste de forma adecuada... Porque sí puedo asegurarte que yo la leí e intenté responderte, pero no pude hacerlo porque no entendí lo que querías hacer. Y si nadie más ha entrado a ayudarte, sospecho que les ha ocurrido algo parecido... Porque ya puedes comprobar que hay un verdadero ejército de colaboradores a quienes les falta tiempo para ofrecer cuantas soluciones pueden, aunque tienen que callar cuando no hay forma de dar ninguna solución...

__________________
José María Movilla Cuadrado
______________________

Visual Basic Videos Programacion Foro Programacion
Tutoriales Programacion Trucos Programacion Codigos Programacion

Totalmente deacuerdo Maestro J.M Movilla, es una falta de respeto al decir que el foro esta cayendo, tanto como para los colaboradores y las personas que buscan una solución.

Saludos cordiales,

__________________
Ronald León Madrid
Analista Programador de Sistemas
Aspi-Systems S.A.C

hola buenos dias señores creo que estos tipos de Comentarios hace mas foro que dar las propias respuestas,tanto lio por un simple comentario creo que no hagasmos mas comentarios sobre lo que pense del foro si los ofendi me disculpo pero no es para tanto. Saludos

Atte.

IPC

__________________
Saludos Peru

Nadie ha hablado de ofensas, amigo maynor19, sino tú mismo. Ni creo que se haya armado lío alguno. Puede que tú lo interpretes como tal; pero en realidad se ha tratado de una simple aclaración para abrirte los ojos, que parece que no llegas a ver las cosas con objetividad, sino bajo la influencia de esa frustracción al no haber recibido la respuesta que creías merecer. Yo sólo he querido dejarte suficientemente sentado que en este foro podrás obtener todo tipo de ayuda que podamos proporcionarte, pero que no te hagas a la idea de que tenemos obligación de ayudarte ni a ti ni a nadie: todo es puro altruismo. Y punto. Por eso el único pago que esperan quienes ayudan es un simple y llano reconocimiento, o un sencillo "gracias".

__________________
José María Movilla Cuadrado
______________________

Visual Basic Videos Programacion Foro Programacion
Tutoriales Programacion Trucos Programacion Codigos Programacion

eso no cabe dura Señor J.M.Movilla, como me dijo un amigo el conocimiento de la informatica es de la humanidad.Creo que la Experencia uno lo gana con los años de ese tema no le puedo conversar nada si no mas que eschucar los consejos de las personas que ya lo an vivido. Gracias y Me disculpo ante todos que se sintieron Molestia por mis comentarios. Saludos.

Atte,

IPC

__________________
Saludos Peru

__________________

Zape

El Límite de la Programación... Es el Límite de la Imaginación...