ich werde euch mein Geheimniss lüften....
Das will ich nicht 20 mal eingeben!
Delphi-Quellcode:
IF Formularname = '
f_ag'
then
begin
with f_ag.Tabelle
do
begin
Close;
Sql := Sqlabfrage;
open;
end;
end;
IF Formularname = '
f_ap'
then
begin
with f_ap.Tabelle
do
begin
Close;
Sql := Sqlabfrage;
open;
end;
end;
IF Formularname = '
f_a'
then
begin
with f_a.Tabelle
do
begin
Close;
Sql := Sqlabfrage;
open;
end;
end;
sonder nur einmal!