Listbox1 de belirtilen bilginin DBgrid de gösterilmesi

[u8300693]

Selam arkadaşlar
Bir problemim var yardımcı olabilirseniz sevinirim.

ilginize şimdiden teşekkür ederim.
Hazır bir database var. Bu database içinde birçok gruplar var.
İstegim Listbox1 de görülen grupları DBgrid de göstermek.
Şu an sadece şu kodları kullanıyorum.

procedure TForm1.Button1Click(Sender: TObject);
begin
Table1.Open ;
table1.Locate('malgrb',listbox1.items[0], [])
end;

Benim istedigim sadece Listbox1 de secilen grupların Dbgride gösterilmesi

yardımcı olabilirseniz sevinirim

[mussimsek]

Merhaba,

Filtreleme ile yapabilirsiniz. Mesela A, B ve C'yi seçtiyseniz

Table1.Filtered := True;
Table1.Filter := A or B or C;

gibi.

Kolay gelsin.

[u8300693]

Malsef bu kod olmadı.
hata veriyor Son satıra

[mussimsek]

kodunuzu gönderin bakalım, bir de ben burda temsili kod yazdım. Siz duruma göre uygun şeyleri yapmanız lazım. Mesela parantezler, string ise tek tırnaklar vs. vs.

Kolay gelsin.

[rsimsek]

şu şekilde deniyebilirsin; Table1.Filter in değeri string olacak;

Table1.Filtered := False;
Table1.Filter := 'malgrb = ''' + trim(ListBox1.Items[ListBox1.ItemIndex]) + '''';
Table1.Filtered := True;

[u8300693]

Arkadaslar bu konuda halen takılı kaldım.
Bana bir cep ve başka bir numara verebilirseniz telefonda sormak istiyorum.
Bu benim için çok önemli

bariscel2002@yahoo.com

teşekkürler

[mussimsek]

hocam kodunu gönder bakalım, öylesi daha kolay. belki de bir tırnak hatası var, başka birşey vs. telefonda çözmesi daha zor.

ayrıca aldığın hata varsa onu da yaz.

NOT : Aldığımız karar neticesi Delphi sorularını sadece forumda cevaplıyoruz. Böyle olunca hem 460 kişi cevaplıyabiliyor, hem de 460 kişi faydalanıyor.

Kolay gelsin.

[u8300693]

İlk olarak şunu belirteyim. Ben delphide sizler kadar profosyonel değilim.
Bu sayfadaki kodlari yaziyorum. Baska kod yok elimde. R simsekin kodlarını yazdıktan sonra çalıştırıyorum ama program kırılıyor. List of index -1 diye mesaj geliyor.
Belkide ben tam olarak anlatamadım diye bir daha yaziyorum.
Programda checklistbox1 da işaretledigim secenekleri listbox1 e atıyorum. Listele tusuna tikladiktan sonra SADECE listbox1 deki istedigim kriterleri Dbgrid de göstermek istiyorum.

[u8300693]

BU PROBLEMİ ÇÖZEN KOD AŞŞAĞIDAKİ GİBİDİR.

BİLGİLERİNİZE

var
k : integer;
i ,J : string;
begin
table1.Filtered := False;
J := '';
for k := 0 to listbox1.items.count -1 do
J := j + 'category = '+ chr(39) + trim(listbox1.Items[k])+ chr(39) + ' OR ' ;
delete (j,length(j)-3,length (j));
table1.Filter := j;
table1.Filtered := True;
Table1.Open;