AYUDA EN LÍNEA
 WINDEVWEBDEV Y WINDEV MOBILE

Este contenido se ha traducido automáticamente.  Haga clic aquí  para ver la versión en inglés.
Ayuda / ¿Cómo proceder? / Programación
  • Usando la función TableAdd
  • Principio
  • Ejemplos de código
  • Uso de TableAddLine
  • Principio
  • Ejemplos de código
  • Usando la función FileToMemoryTable
  • Principio
  • Ejemplo de código
WINDEV
WindowsLinuxUniversal Windows 10 AppJavaReportes y ConsultasCódigo de Usuario (UMC)
WEBDEV
WindowsLinuxPHPWEBDEV - Código Navegador
WINDEV Mobile
AndroidWidget Android iPhone/iPadIOS WidgetApple WatchMac CatalystUniversal Windows 10 App
Otros
Procedimientos almacenados
Se pueden utilizar varios métodos para rellenar un control Tabla de forma programada:
Usando la función TableAdd

Principio

TableAdd se utiliza para añadir un fila a un control Tabla gestionado de forma programada. Para añadir la fila, debe hacerlo:
  1. Declarar una Variable para preparar la fila para añadir.
  2. Concentrar cada valor de la columna en esta Variable. Cada valor está separado por un carácter TAB. La fila a añadir debe tener el siguiente formato:
    Row = <Value Column 1> + TAB + <Value Column 2> + TAB + ... + TAB + <Value Column N>
  3. Añadir la fila con TableAdd.

Ejemplos de código

  • Añadir una simple fila:
    sRow is string
    sRow = Today() + TAB + TimeSys() + TAB + "my message..."
    TableAdd(TABLE_messages, sRow)
  • Añadir los registros del fichero de productos a una control Tabla:
    sRow is string
     
    // Clear the contents of the Table control
    TableDeleteAll(TABLE_Products)
     
    FOR EACH PRODUCT
    sRow = Product.Reference + TAB + Product.ProdCap + TAB + Product.Price
    TableAdd(TABLE_Products, sRow)
    END
    Info("There are " + TableCount(TABLE_Products) + " added products.")
Uso de TableAddLine

Principio

TableAddLine se utiliza para añadir un fila a un control Tabla gestionado de forma programada. La única diferencia con el método anterior (utilizando TableAdd) es una diferencia sintáctica.

Ejemplos de código

  • Añadir una simple fila:
    // Add a simple row
    TableAddLine(TABLE_messages, Today(), TimeSys(), "my message...")
  • Añadir los registros del fichero de productos a una control Tabla:
    // Add the PRODUCT file to a Table control
    sRow is string
     
    // Clear the contents of the Table control
    TableDeleteAll(TABLE_Products)
     
    FOR EACH PRODUCT
    TableAddLine(TABLE_Products, Product.Reference, Product.ProdCap, Product.Price)
    END
     
    Info("There are " + TableCount(TABLE_Products) + " added products.")
  • Añadir los registros del fichero de productos a una control Tabla (columna por columna):
    <code WL>
    sRow is string
    nAddedRowNum is int
     
    // Clear the contents of the Table control
    TableDeleteAll(TABLE_Products)
     
    FOR EACH PRODUCT
    // Add an empty row
    nAddedRowNum = TableAddLine(TABLE_Products)
     
    // Modify the columns separately
    TABLE_Products.Col_Ref[nAddedRowNum] = Product.Reference
    TABLE_Products.Col_Cap[nAddedRowNum] = Product.ProdCap
    TABLE_Products.Col_Price[nAddedRowNum] = Product.Price
     
    END
     
    Info("There are " + TableCount(TABLE_Products) + " added products.")
Usando la función FileToMemoryTable

Principio

FileToMemoryTable rellena una control Tabla gestionada de forma programada a partir de un archivo de datos (o de una consulta SQL) en una sola operación (sin utilizar un bucle).
Sin embargo, la estructura de la control Tabla (formato de columnas y orden de las columnas) debe corresponder exactamente al formato del fichero o consulta SQL: el elemento 1 del archivo o consulta SQL será associated con la columna 1, entonces el elemento 2 del archivo o consulta SQL será associated con la columna 2, etc.

Ejemplo de código

FileToMemoryTable(TABLE_PRODUCT, Product)
Versión mínima requerida
  • Versión 9
Esta página también está disponible para…
Comentarios
Another easier way of filling a table column by column from a qry
// Clear the table content
TableDeleteAll(MyTable)

IF HexecuteQry(Qry_New,HqueryDefault) = True Then
FOR EACH Qry_New
TableAddLine(MyTable,Qry_New.Col1,...
TableAddLine(MyTable,Qry_New.Col2,...
TableAddLine(MyTable,Qry_New.Col3,...
TableAddLine(MyTable,Qry_New.Col4,...
TableAddLine(MyTable,Qry_New.Col5)
END
END

Info("There are " + MyTable..occurrence + " added products.")
Diego Sanchez
07 07 2017

Última modificación: 30/10/2022

Señalar un error o enviar una sugerencia | Ayuda local