Inoffizielles deutsches Xbase-Forum

Code: Alles auswählen

aEindimensional := { 1, 2, 3, 4, 5 } // mit 5 Werten
? "Zweites Element",aEindimensional[2]

Code: Alles auswählen

use ... 
dbgotop()
aData := {} // leeres Array anlegen
do while ! eof()
   // entweder: einige Felder merken
   aadd(aData, { Feld1, Feld4, Feld8 } )
   // oder:       alle Felder einlesen, da kann man in Xbase++ eine Funktion nutzen, die einen Datensatz als Array zurückgibt
   aadd(aData, scatter() )   // in blocks.prg im System Source Verzeichnis
   // eventuell mit IF Abfrage einschränken ???
   dbskip() 
enddo

Code: Alles auswählen

use ... 
dbgotop() // hier nicht nötig
aData := {} // leeres Array anlegen
dbeval( {|| aadd(aData, { Feld1, Feld4, Feld8 } ) } ) // Feldauswahl 
dbeval( {|| aadd(aData, scatter() )             }) // oder alle Felder

do while ! eof()
   // entweder: einige Felder merken
   aadd( )
   // oder:       alle Felder einlesen, da kann man in Xbase++ eine Funktion nutzen, die einen Datensatz als Array zurückgibt
   aadd( )   // in blocks.prg im System Source Verzeichnis
   // eventuell mit IF Abfrage einschränken ???
   dbskip() 
enddo

Code: Alles auswählen

use Adressen
dbGoTop()
do while ! eof()
   if Filterbedingung()  // was auch immer 
      // Variablen füllen
     cEmpfänger := field->eMailAdr
      if SendeEmailAn( cEmpfänger, cCopy, cBCC, cInhalt, aAnhänge ) // Senden von Massenmail geht am Besten mit SMTP Server (dazu gibt es Beispiele)
         replace SendDat with date()
         replace SendOK with "OK"
      else
         replace SendOK with "ERR"
      endif
   endif
   dbskip()
enddo