Corretta renum_key
git-svn-id: svn://10.65.10.50/trunk@5111 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
parent
3e54971b14
commit
80329ce260
@ -38,11 +38,12 @@ void TRecord_array::set_key(TRectype* r)
|
||||
const RecDes* recd = r->rec_des(); // Descrizione del record della testata
|
||||
const KeyDes& kd = recd->Ky[0]; // Elenco dei campi della chiave 1
|
||||
// Copia tutti i campi chiave, tranne l'ultimo, in tutti i records
|
||||
TString val;
|
||||
for (int i = kd.NkFields-2; i >= 0; i--)
|
||||
{
|
||||
const int nf = kd.FieldSeq[i] % MaxFields;
|
||||
const RecFieldDes& rf = recd->Fd[nf];
|
||||
const TString& val = r->get(rf.Name);
|
||||
val = r->get(rf.Name);
|
||||
renum_key(rf.Name, val);
|
||||
}
|
||||
}
|
||||
|
Loading…
x
Reference in New Issue
Block a user