From e2e13aac42169deb8d52cdc8d09960c2bdd46179 Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Sun, 21 Oct 2007 17:53:11 +0000
Subject: [PATCH] Minor safety fix: Be sure status bar doesn't display old "db:
 xx tables".

---
 source/childwin.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/source/childwin.pas b/source/childwin.pas
index 8bc4706b..8f7713e2 100644
--- a/source/childwin.pas
+++ b/source/childwin.pas
@@ -2231,10 +2231,10 @@ begin
       VTRowDataListTables[i-1].Captions := ListCaptions;
       ds.Next;
     end;
-    mainform.showstatus(db + ': ' + IntToStr(ds.RecordCount) +' table(s)');
   finally
     ListTables.RootNodeCount := Length(VTRowDataListTables);
     ListTables.EndUpdate;
+    Mainform.showstatus(db + ': ' + IntToStr(ListTables.RootNodeCount) +' table(s)');
     Screen.Cursor := crDefault;
   end;
 end;