Sort on Index with 3 fields causes big troubles (dBase)
Erich Brunner
I am usung a year calender table (e.g. 1998) and set in the
OnRowChange event( VCL modified not standard TDBGrid)
(ONRowChange will be triggered when you move the record pointer
up or down.)
a Range in a second table which is displayed in a second DBGrid
with an Table.Indexname with 3 keyfields.
in the OnRowchange Event ....
Table.CancelRange;
Table.Indexname := 'DATE+EMPLOYEE+TIME'; <-- the sort only works with '+'
signs and not with semicolons ';'.
Table.SetRangeStart;
............<--- start keyvalues assigned to the 3 keyfields
Table.SetRangeEnd;
....... <--- end keyvalues assigned to the 3 keyfields
Table.ApplyRange;
My first question:
1. Why does my sort only work with '+' and not with semicolons ';'?
The second step is to calculate an CalcField with the total work hours/ per
day
of this employee.
For Example at the 5th Oct. 1998 this emplyee had 3 records
with 3 hours in the first ; 4 hours in the second and 3 hours in the
third.
To calculate this total hours for this day I wrote a simply add function
were I add very keyvalue of the working hour field up to the next....
This Result for each day will be display in a calcfield of my calender table
for
the depending day.
I trigger the add function within the OnCalcFieldsEvent
So and here is my question.
After start Up of my DB App when the CalcfieldsEvent has
finished I get for every day a correct result of my total hour Table field
calculated in the calender table , expect the 1. Record.
In the 1. record of my calender table ( this is the 1. record in
my range ( range is set on the month, for example 'January'))
Hear is Table.BOF = TRUE I checked it with the Breakpoints .
Everything looks fine but it does not work. Even when a Calcfield
Event will be triggered again .
For example when I add a new record to emplyee ---> total working
hours will be increased -----> OnCalcfields Event
will be triggered , then I get the correct hours in the 1. Record, too.
Can anyone help me. With the Indexname := ''DATE;EMPLOYEE';
it work everytime.
PS: Very indexed field is a TStringField !!!
Sorry for the long explanation but I couldn´t make it shorter.
Best Regards;
Eric
IB-DATA
erich-...@xpoint.at