listbox ta mükerrer kayıtlar

[MyOsM]

herkese merhabalar

benim sorunum şu forumda gerekli araştırmaları yaptım ama bir noktaya ulşamadım. size kısa aktarmaya çalışayım

bir fatura listesi var elimizde elimiz de atıyorum 1000 adet fatura ve bu faturalar ayrı ayrı firmalara ait
bu liste vt kayıtlı
while ile tablo sonuna kadar döngüye giriyorum ve her faturanın vergi numarasını listbox atıyorum, buaraya kadar problem yok,

takıldığım nokta listbox aktarılan kayıtlar içersinde mükkerrer kayıtları tek düşürmek sonuçta 1000 adet faturanın kaç adet firmaya ait olduğunu ve firmalarının vergi numaralarına ulaşmış olacağız. SQL kodu ile distinct ile vergi noları bulabilirsiniz diyebilirsiniz ama bu bulanan vergi numaraları sıralı bir şekilde başka işlemlerde yapılacak.

yardımlarınız için şimdiden teşekkürler

[Battosai]

Ben pek anlamadım soruyu...distinc niye işini görmüyor...? Tam ifade edememişsin gibi geliyor bana yada ben anlayamadım

[MyOsM]

evet yanlış ifade ettim sanırım, bu firmalar bir stringgrid içersinde vergi numarasına göre yapılacak kontrol de sorunsuz firmalar vt yazılacak ama ben bu kontrolü vt kaydetmeden yapıyorum pardon

[adelphiforumz]

hocam yazdıkların biraz karışık geldi fakat anladığım kadarı ile
elindeki bilginin listboxta olup olmadığını kontrol et sonra yoluna devam et
procedure TForm1.Button1Click(Sender: TObject);
var x:Integer;
begin
x:=ListBox1.Items.IndexOf(Edit1.Text);
if x = -1 Then
Showmessage('KayıtYok ekle')
else
Showmessage('Kayıt ' + IntToStr(x) + '. sırada bulundu');
end;

[conari]

Kod: Tümünü seç

select vergino, count(faturano) from tablo group by vergino

hangi numaraya kaç fatura kesilmişi verir.

bu liste aynı zamanda vergi numaralarınıda teke indirir.

[MyOsM]

Cevaplarınız için teşşekkür ederim. sorunum çözüldü.

Saygılarımla hayırlı cumalar