From 5cf0d55e9e334ada7070ce005db8064b054addef Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Fri, 14 Sep 2007 19:17:47 +0000
Subject: [PATCH] Make sure current database in dbtree has a fresh tablelist
 before selecting a newly created table.

---
 source/createtable.pas | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/source/createtable.pas b/source/createtable.pas
index ade5c6ef..cdcda0b4 100644
--- a/source/createtable.pas
+++ b/source/createtable.pas
@@ -213,6 +213,8 @@ begin
     Mainform.ChildWin.ExecUseQuery( DBComboBox.Text );
     Mainform.ChildWin.ExecUpdateQuery( createQuery );
     Mainform.ChildWin.RefreshDbTableList( DBComboBox.Text );
+    Mainform.Childwin.ActiveDatabase := DBComboBox.Text;
+    Mainform.Childwin.PopulateTreeTableList( nil, True );
     Mainform.ChildWin.SelectedTable := EditTablename.Text;
     Mainform.ChildWin.ShowTable(EditTablename.Text);
     Close;