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
  • Uso de la función TableAdd
  • Principio
  • Ejemplos de código
  • Uso de TableAddLine
  • Principio
  • Ejemplos de código
  • Uso de la función FileToMemoryTable
  • Principio
  • Ejemplo de código
WINDEV
WindowsLinuxJavaReportes y ConsultasCódigo de Usuario (UMC)
WEBDEV
WindowsLinuxPHPWEBDEV - Código Navegador
WINDEV Mobile
AndroidWidget Android iPhone/iPadIOS WidgetApple WatchMac Catalyst
Otros
Procedimientos almacenados
Se pueden utilizar varios métodos para rellenar mediante programación un control Tabla:
Uso de la función TableAdd

Principio

TableAdd se utiliza para añadir una fila a un control Tabla gestionado mediante programación. Para añadir la fila, debe:
  1. Declarar una variable para preparar la fila a añadir.
  2. Concatenar cada valor de 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ñade la fila con TableAdd.

Ejemplos de código

  • Añade una fila simple:
    sRow is string
    sRow = Today() + TAB + TimeSys() + TAB + "my message..."
    TableAdd(TABLE_messages, sRow)
  • Añadir los registros del archivo Producto a un 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 una fila a un control Tabla gestionado mediante programación. La única diferencia con el método anterior (utilizando TableAdd) es una diferencia sintáctica.

Ejemplos de código

  • Añade una fila simple:
    // Add a simple row
    TableAddLine(TABLE_messages, Today(), TimeSys(), "my message...")
  • Añadir los registros del archivo Producto a un 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 archivo Producto a un control Tabla (columna a 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.")
Uso de la función FileToMemoryTable

Principio

FileToMemoryTable rellena una tabla control Tabla rellenada mediante programación 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 del control Tabla (formato y orden de las columnas) debe corresponder al formato del archivo o consulta SQL. El elemento 1 del archivo o de la consulta SQL se asociará a la columna 1, el elemento 2 se asociará a 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/01/2025

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