aboutsummaryrefslogtreecommitdiff
path: root/src/bin/pgaccess/lib/forms.tcl
diff options
context:
space:
mode:
Diffstat (limited to 'src/bin/pgaccess/lib/forms.tcl')
-rw-r--r--src/bin/pgaccess/lib/forms.tcl1
1 files changed, 1 insertions, 0 deletions
diff --git a/src/bin/pgaccess/lib/forms.tcl b/src/bin/pgaccess/lib/forms.tcl
index de4761e9f67..c0f5938e53e 100644
--- a/src/bin/pgaccess/lib/forms.tcl
+++ b/src/bin/pgaccess/lib/forms.tcl
@@ -803,6 +803,7 @@ switch $PgAcVar(fdobj,$item,class) {
set DataControlVar($base.$name,recno) 0
set DataControlVar($base.$name,nrecs) \[pg_result \$res -numTuples\]
setCursor NORMAL
+ pg_result \$res -clear
}"
namespace eval ::DataControl($base.$name) "proc setSQL {sqlcmd} {
global DataControlVar