Fix bug #575 "Incorrect table size in tree"

This commit is contained in:
Ansgar Becker
2008-06-21 17:56:27 +00:00
parent e5e837aa2e
commit fcdefa1f7a

View File

@@ -6677,7 +6677,7 @@ begin
NODETYPE_TABLE: begin
db := DBtree.Text[Node.Parent, 0];
ds := FetchDbTableList(db);
ds.RecNo := Node.Index;
ds.RecNo := Node.Index + 1;
Bytes := GetTableSize(ds.Fields);
CellText := FormatByteNumber(Bytes);
end