combit List & Label - Programmierer-Referenz - combit GmbH

Next i
Select Case VarType(Form1.Data1.Recordset.Fields(i))
'--- Numerische Variable
Case 2, 3, 4, 5
para = LL_NUMERIC
content$ = Form1.Data1.Recordset.Fields(i)
'--- Falls der Datentyp "Datum" ist, Umwandlung in _
'--- einen numerischen Datumswert
Case 7
para = LL_DATE_MS
a! = CDate(Form1.Data1.Recordset.Fields(i))
content$ = a!
'--- Entscheidungsvariable (Ja/Nein), Boolean
Case 11
para = LL_BOOLEAN
content$ = Form1.Data1.Recordset.Fields(i)
'--- Zeichenformat = Text
Case Else
para = LL_TEXT
content$ = Form1.Data1.Recordset.Fields(i)
End Select
nRet = Form1.ListLabel1.LlDefineVariableExt(Form1.Data1.Recordset._
Fields(i).Name, content$, para)
' Werden Echt-Daten benötigt? (nicht bei Designer-Aufruf)
If bDummy = 0 Then
' ja: bewege Satzzeiger, ...
pnProgressInPerc = Form1.Data1.Recordset.PercentPosition
End If
End Sub
' Gehe zum nächsten Datensatz
Form1.Data1.Recordset.MoveNext
' Wenn kein weiterer Datensatz mehr folgt, dann ' wird der
' Druck beendet
If Form1.Data1.Recordset.EOF = True Then
pbLastRecord = 1
End If
2.6. Die eigene Druckschleife
Die eigene Druckschleife
2.6.1. Die Datenversorgung
List & Label arbeitet in diesem Modus ebenfalls datenbankunabhängig. Das bedeutet,
dass die Anwendungen bzw. Sie als Programmierer für die Datenversorgung zuständig
sind. Sie teilen also List & Label per Funktionsaufruf mit, welche Daten(felder) von Ihrer
Anwendung überhaupt als druckbare Daten zur Verfügung gestellt werden (bspw. "Ein
Feld namens , ein Feld namens " etc.) und welchen Inhalt dieses
Feld hat. Woher Sie letztlich zur Druckzeit die Inhalte der Datenfelder bekommen, spielt
29