> namespace eval ::DataControl($base.$name) "proc open {} {
> global CurrentDB DataControlVar
> variable tuples
> catch {unset tuples}
> set wn \[focus\] ; setCursor CLOCK
> set res \[wpg_exec \$CurrentDB \"\$DataControlVar($base.$name,sql)\"\]
> pg_result \$res -assign tuples
> set fl {}
> foreach fd \[pg_result \$res -lAttributes\] {lappend fl \[lindex \$fd
> 0\]}
> set DataControlVar($base.$name,fields) \$fl
> set DataControlVar($base.$name,recno) 0
> set DataControlVar($base.$name,nrecs) \[pg_result \$res -numTuples\]
> setCursor NORMAL
> pg_result \$res -clear
> }"
>
> Just let me know if you succeeded and everything is ok!
>
yes, it works fine! thank you very much!
time to release 0.98.6 :-)
bye, Klaus
--
Sent through GMX FreeMail - http://www.gmx.net