tdSuccessivo

Struttura

tdNext(iDataSet)

Tipo

Procedura

Descrizione

Questa funzione sposta uno dei tre set di dati temporanei al record successivo.

Parametri: 1

iDataSet = numero del set di dati; deve essere compreso tra 1 e 10. IndySoft mette a disposizione 10 set di dati accessibili tramite le funzioni di script personalizzate "td*".

Esempio

if tdDoSQLRecords(1, 'SELECT COMPANY_NAME FROM COMPANY ORDER BY COMPANY_NAME') then

tdFirst(1)

while (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('Azienda: ' & sCompanyName & Chr(13) &

'Numero di misuratori: ' & IntToStr(iCount))

tdNext(1)

End While

End If |