TbrowseDB() zeigt nach Aufbau 2 Zeilen weniger an [ERLEDIGT]

Zugriff, Engines, Konvertierung. Von ADS über DBF bis zu SQL.

Moderator: Moderatoren

Antworten
Benutzeravatar
messing
Rekursionen-Architekt
Rekursionen-Architekt
Beiträge: 216
Registriert: Mi, 13. Jan 2010 9:42
Wohnort: Lauterbach / Hessen

TbrowseDB() zeigt nach Aufbau 2 Zeilen weniger an [ERLEDIGT]

Beitrag von messing »

Servuß,

Habe folgendes Phänomen!

Baue mit

Code: Alles auswählen

tabelle2:=TbrowseDB(0,0,17,78)
tabelle2:colSep:= Chr(32)  + Chr(179) + Chr(32)
tabelle2:headSep       := Chr(205) + Chr(205) + Chr(205)
//tabelle2:footsep       := Chr(205) + Chr(205) + Chr(205)

tab2=TBColumnNew( "Tag", {|| cdow(dat_anf) } )
//( "Nr.:", {|| PadC( ZAEHLER, 7, " " )} )
tab2:width=3
tabelle2:addColumn(tab2)
tab2=TBColumnNew( "Datum", {|| DAT_ANF } )
tab2:width=8
tabelle2:addColumn(tab2)
*tabelle2:addColumn(TBColumnNew( "Aufgeber", {|| Auftraggeb } ))
tab2=TBColumnNew( "Von", {|| ZEIT_ANF } )
tab2:width=5
tabelle2:addColumn(tab2)
*tabelle2:addColumn(TBColumnNew( "Ladeort", {|| Ladestelle } ))
tab2=TBColumnNew( "Bis", {|| ZEIT_END } )
tab2:width=5
tabelle2:addColumn(tab2)
tabelle2:gobottom()
while .t.
     while !tabelle2:stabilize()
    enddo
... tastensteuerung
enddo
ein Tbrowse auf.

Bei der Anzeige sind die zwei letzten zeilen trotz tabelle2:gobottom() nicht zu sehen.
Wenn ich dann nach unten wandere mit up(),pagedown(),gobottom(), tauchen diese auf.
Ich hab die Indexe gelöscht und neu aufgebaut, Datenbank sortiert, der Effekt bleibt!

Weis einer woran dies liegen könnte?
Zuletzt geändert von messing am Di, 07. Feb 2012 15:59, insgesamt 1-mal geändert.
Gruß
Bruno
Messing
Benutzeravatar
AUGE_OHR
Marvin
Marvin
Beiträge: 12909
Registriert: Do, 16. Mär 2006 7:55
Wohnort: Hamburg
Hat sich bedankt: 19 Mal
Danksagung erhalten: 46 Mal

Re: TbrowseDB() zeigt nach Aufbau 2 Zeilen weniger an

Beitrag von AUGE_OHR »

messing hat geschrieben:

Code: Alles auswählen

tabelle2:=TbrowseDB(0,0,17,78)
...
tabelle2:gobottom()
while .t.
     while !tabelle2:stabilize()
    enddo
... tastensteuerung
enddo
ein Tbrowse auf.

Bei der Anzeige sind die zwei letzten zeilen trotz tabelle2:gobottom() nicht zu sehen.
Wenn ich dann nach unten wandere mit up(),pagedown(),gobottom(), tauchen diese auf.
Ich hab die Indexe gelöscht und neu aufgebaut, Datenbank sortiert, der Effekt bleibt!

Weis einer woran dies liegen könnte?
ich sehen keinen

Code: Alles auswählen

oTBrowse:goTopBlock    := {|| DbGoTop() } 
oder

Code: Alles auswählen

oTBrowse:goBottomBlock := {|| DbGoBottom() } 
Codeblock den er ausführen soll.
gruss by OHR
Jimmy
Benutzeravatar
messing
Rekursionen-Architekt
Rekursionen-Architekt
Beiträge: 216
Registriert: Mi, 13. Jan 2010 9:42
Wohnort: Lauterbach / Hessen

Re: TbrowseDB() zeigt nach Aufbau 2 Zeilen weniger an

Beitrag von messing »

AUGE_OHR hat geschrieben:
messing hat geschrieben:

Code: Alles auswählen

tabelle2:=TbrowseDB(0,0,17,78)
...
tabelle2:gobottom()
while .t.
     while !tabelle2:stabilize()
    enddo
... tastensteuerung
enddo
ein Tbrowse auf.

Bei der Anzeige sind die zwei letzten zeilen trotz tabelle2:gobottom() nicht zu sehen.
Wenn ich dann nach unten wandere mit up(),pagedown(),gobottom(), tauchen diese auf.
Ich hab die Indexe gelöscht und neu aufgebaut, Datenbank sortiert, der Effekt bleibt!

Weis einer woran dies liegen könnte?
ich sehen keinen

Code: Alles auswählen

oTBrowse:goTopBlock    := {|| DbGoTop() } 
oder

Code: Alles auswählen

oTBrowse:goBottomBlock := {|| DbGoBottom() } 
Codeblock den er ausführen soll.
Danke
Gruß
Bruno
Messing
Antworten