From bd3143baa37fc2c031fe862dd9312c837f057e0d Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Sun, 28 Sep 2008 22:41:08 +0000
Subject: [PATCH] Fix bug #769: Query columns don't clear on update

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

diff --git a/source/childwin.pas b/source/childwin.pas
index b473274c..c672a075 100644
--- a/source/childwin.pas
+++ b/source/childwin.pas
@@ -3922,7 +3922,7 @@ begin
     begin
       // Keep native order of columns
       lboxQueryHelpers.Sorted := False;
-      for i := 0 to High(VTRowDataListColumns) do
+      if SelectedTable <> '' then for i := 0 to High(VTRowDataListColumns) do
       begin
         lboxQueryHelpers.Items.Add(VTRowDataListColumns[i].Captions[0]);
       end;