Db Gridde Tüm Kayıtları Seçme

[anakonda]

Paradox veri tabanlı arıza takip programı yaptım
benim sorunum dbgriddeki tüm kayıtları seçip kopyalamak ve worde aktarmak ordanda çıktı almak
yada dbgriddeki kayıtlardan işime yarayanları seçip direk yazdırabilirmiyim

şimdiden teşekkürler

[aslangeri]

s.a.
dbgridin multiselect özelliği var onu kullanarak yapabilirsin.
nası mı?
multiselect
kolay gelsin.

[vedatkaba]

Kod: Tümünü seç

function grdiselectAll(Grdim:Tdbgrid):longint;
   begin
result:=0;
grdim.selectedrows.clear;
with grdim.datasource.dataset do
begin
first;
disablecontrols;
try
while not eof do
begin
grdim.selectedrows.currentrowselected:=true;
inc(result);
next;
end;
finally
enablecontrols;
end;
end;

Kullanımı ise ........

Kod: Tümünü seç

procedure Tform1.button1click(sender:Tobject);
begin
gridselectall(Dbgird1);
end;

Kolay gelsin.

[anakonda]

multiselect özelliğini bulamadım

vermiş olduğunuz komuttada aşağıdaki hatayi veriyor

komut:gridselectall(DBGrid1)

[Error] Unit3.pas(82): Undeclared identifier: 'gridselectall'

[vedatkaba]

Hata vermesi normal çünkü butona bastığımda fonksiyonun çalışması için fonksiyon adının doğru yazılması lazım ama ben fonksiyon adını doğru yazamamışım özür dilerim orayı düzeltiersen problem kalmaz.