tdSiguiente

Estructura

tdNext(iDataSet)

Tipo

Procedimiento

Descripción

Esta función pasará al siguiente registro de uno de los tres conjuntos de datos temporales.

Parámetros: 1

iDataSet = número del conjunto de datos; debe ser un número entre 1 y 10. IndySoft ofrece 10 conjuntos de datos a los que se puede acceder mediante las funciones de script personalizadas «td*».

Ejemplo

si tdDoSQLRecords(1, 'SELECT COMPANY_NAME FROM COMPANY ORDER BY COMPANY_NAME') entonces

tdFirst(1)

mientras (tdEOF(1) = '0')

sCompanyName = tdFieldbyNameAsString(1, 'COMPANY_NAME')

iCount = 0

if tdDoSQLRecords(2, 'SELECT COUNT(*) AS COUNTER FROM GAGES WHERE COMPANY = '' & sCompanyName & ''') then

iCount = tdFieldbyNameAsInteger(2, 'COUNTER')

End If

ShowMessage('Empresa: ' & sCompanyName & Chr(13) &

'Recuento de medidores: ' & IntToStr(iCount))

tdNext(1)

End While

End If |