En esta ocacion les muestro como desplegar informacion en un Objeto Grid
La Sintaxis seria la Siguiente:
Me.Caption = "EJEMPLO DE GRID VENTANA 1" (Colocamos el nombre de la Forma)
Me.BackColor = RGB(0,128,128) (Colocamos el color de la forma)
Dim s
s = _
“SELECT venta, ocupado, tipo_doc FROM ventas” (designamos los registros a mostrar asi como la tabla)
‘ 1.- Sentencia de SQL, 2.- Color del primer renglon
‘ 3.- El color del siguiente renglon, 4.- Cuantos
‘ renglones se muestran por capa, 5 y 6.- Columna
‘ y renglon de inicio
fillGrid (s), RGB( 200, 200, 200 ), _
RGB( 240, 240, 240 ), 40, 0, 0
si deseamos asignar un ancho especifico la sintaxis seria la siguiente debajo de la ultima linea
Grid.ColumnWidth(Grid.ColumnKey(1)) = 120
Grid.ColumnWidth(Grid.ColumnKey(2)) = 100
Grid.ColumnWidth(Grid.ColumnKey(3)) = 100
Nestor Octavio Guzman Bernal
Consultor de Analisis de Desarrollo