ListBox'tan ListBox'a Veri Aktarma
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
ListBox'tan ListBox'a Veri Aktarma
Yapmak istediğim Resimde de görüldüğü gibi 2 adet listbox var elimizde birinci listbox'un içinde
bulunan bilgilerden istediğimi ListBox2' ye aktarmak istiyorum ve yine resimden de anlaşılacağı
gibi "EXELE AKTAR" butonuna tıkladığımda Bu seçilen Bilgiler'i DBGrid'ten çekerek exel'e çıkartmasını
yada CSV olarak çıkış yapmasını istiyorum bu konuda bilgisi olanlardan yardımcı olmalarını bekliyorum Şimdiden Teşekkürler....
düşüncen güzel ama benim önerim senin için daha basit gelecektir. checklistbox a bir döngü ile field ların yada grid sütun balıklarının açıklamalarını doldur. oradan checked olanları kaydettirirsin.
aşağıdaki kod ehlib gridimde seçtiğim kolonları ewkranda görünür kılan diğerlerini gizleyen od. sanırım dbgrid ilede çalışır.
chklistcols bir checklistbox tipli değişkendir. i ise normal tamsayı.
yukardaki ise bir gridin sütun başlıklarını checliste dolduran kod. burdan ki tıklama sonuçlarına göre ilgili sütunları bir CSV dosyasına yazarsan hem open office hemde excel için çalışan bir export yazmış olacaksın.
aşağıdaki kod ehlib gridimde seçtiğim kolonları ewkranda görünür kılan diğerlerini gizleyen od. sanırım dbgrid ilede çalışır.
Kod: Tümünü seç
j := chklstCols.Items.Count - 1;
For i := 0 To j Do
Begin
If chklstCols.Checked[i] Then
DbGrid.Columns[i].Visible := True
Else
DbGrid.Columns[i].Visible := False;
End;
Kod: Tümünü seç
For i :=0 to DbGrid.Columns.Count-1 Do
chklstCols.Items.Add(DbGrid.Columns[i].Title.Caption);
Kişi odur ki, koyar dünyada bir eser. Eseri olmayanın yerinde yeller eser./Muhammed Hadimi
http://www.ibrahimkutluay.net
http://www.ibrahimkutluay.net/blog
http://www.ibrahimkutluay.net
http://www.ibrahimkutluay.net/blog
ListBox'tan ListBox'a Veri Aktarma
cevabın için teşekkür ederim ama senin demek istediğini ben tam olarak çözemedim benim yapmak istediğim şekilde yapacak olsak iş çokmu uzun sürer...eğer benim yaptığım gibi yapabilirsek ve bu konuda yardımcı olursanız sevinirim....
s.a.
listbox1 deki elemanı listbox2 ye atmak için önce listbox1deki eleman seçilir.
yukarı aşağı için
excele aktarma içinse.....
onun için biraz uğraşman gerekecek çünkü vt deki alan isimleri ile listboxdaki alan isimlerinin uyuştuğunu sanmıyorum.
kolay gelsin.
listbox1 deki elemanı listbox2 ye atmak için önce listbox1deki eleman seçilir.
Kod: Tümünü seç
listbox2.add(listbox1.items[listbox1.itemindex]);
Kod: Tümünü seç
listbox2.moveby....
onun için biraz uğraşman gerekecek çünkü vt deki alan isimleri ile listboxdaki alan isimlerinin uyuştuğunu sanmıyorum.
kolay gelsin.
Duyduğun Şeylerin Söylediklerim Olduğuna Eminim Ama
Anladığın Şeylerin Anlatmak İstediklerim Olduğuna Emin Değilim
Anladığın Şeylerin Anlatmak İstediklerim Olduğuna Emin Değilim
bir checklist boxta alan isimleri gelecek... ordan tık koyduklarını index ve checked ile basitçe işleyeceksin...
Kişi odur ki, koyar dünyada bir eser. Eseri olmayanın yerinde yeller eser./Muhammed Hadimi
http://www.ibrahimkutluay.net
http://www.ibrahimkutluay.net/blog
http://www.ibrahimkutluay.net
http://www.ibrahimkutluay.net/blog
İlgili butonun onclick yordamına;
şeklinde bir kodlama yapabilirsin.
Kod: Tümünü seç
var I: integer;
Dosya: string;
begin
ListBox2.Clear;
for I:= 0 to ListBox1.Items.Count - 1 do
begin
Dosya:= ListBox1.Items.Strings[I];
ListBox2.Items.Add(Dosya);
end;
end;
ListBox'tan ListBox'a Veri Aktarma
Merhaba
olarak yaptığımda listbox'lar arası veri aktarımı oluyor ama seçilen veri değil tüm veriler aktarılıyor... hata nerede bakabilirmisiniz...
Kod: Tümünü seç
Listbox3.items.add(listbox2.items[listbox2.itemindex]);
ListBox'tan ListBox'a Veri Aktarma
Yanlız Şöyle birşey var ben burada herhangi bir döngü kullanmadım direk olarak butonun içine yazdım kodu ve tıklama yapıldığı zamanda tüm içeriği aktardı... döngü olrak nasıl birşey yapmam gerekir... ve listbox içinde verileri aşağı yukarı taşıma olayını nasıl yapabilirim...
bir yanlışınız olmalı.
çünkü
bu kod adım adım şu işi yapar:
-listbox2 de seçili olanın index numarasını alır
-listbox2 de verilen indexli elemanı alır
-listbox3 e bu elemanı ekler
buna göre hepsini aktarması imkansız döngü yoksa...
tanımlamalarınızı kontrol edin. bu kodun sadece ilgili butonun onclick eventinde olduğundan emin olun. butonun onclick eventi için başka bir prosedürün atanmamış olduğundan da emin olun
çünkü
Kod: Tümünü seç
Listbox3.items.add(listbox2.items[listbox2.itemindex]);
-listbox2 de seçili olanın index numarasını alır
-listbox2 de verilen indexli elemanı alır
-listbox3 e bu elemanı ekler
buna göre hepsini aktarması imkansız döngü yoksa...
tanımlamalarınızı kontrol edin. bu kodun sadece ilgili butonun onclick eventinde olduğundan emin olun. butonun onclick eventi için başka bir prosedürün atanmamış olduğundan da emin olun
ListBox'tan ListBox'a Veri Aktarma
Tamam şuan sorun yok aktarma işlemi oluyor yanlız şu konuda bir cevap alabilirsem çok daha iyiolacak sanırım bu işi yapmaya başladım ama benim bu seçtiğim bilgileri ben yaptığım sıralamaya göre exel'e yada csv çıkışı olarak alabilecekmiyim....delphi konusunda yeniyim kendimi geliştirmeye çalışıyorum ama bir yerlerde yarım almadan olmuyor... bu konu ile ilgili olarak online olarak yardım edebilecek olan var ise..
konu ile ilgili olarak yardımlarınıza ihtiyacım var....
konu ile ilgili olarak yardımlarınıza ihtiyacım var....
En son akrep_57 tarafından 01 Eyl 2022 11:39 tarihinde düzenlendi, toplamda 1 kere düzenlendi.
standart dbgrid den direk olarak excel e aktarma şansın yk.
kendin biraz kasıp yapman lazım. aslında çok da zor değil forumda excel kullanma hakkında yazılan yazıları okuyarak takıldığın noktalarda da sorarak halledersin.
devepress->cxgrdi direk excel e aktarma işini sağlıyor ama ücretli mi free mi bilmiyorum.
kendin biraz kasıp yapman lazım. aslında çok da zor değil forumda excel kullanma hakkında yazılan yazıları okuyarak takıldığın noktalarda da sorarak halledersin.
devepress->cxgrdi direk excel e aktarma işini sağlıyor ama ücretli mi free mi bilmiyorum.
cxgrid paralı. ehlib te paralı.
bu arada basit bir döngü kurmak bu kadar zor gelmesin. sen bir adımı at gerisini getiririz sonuçta alan adlarını bilmiyoruz birşey bilmiyoruz. herşeyi devletten beklmeyin:)
yapacağın sadece uzantısı csv olan bir metin dosyası oluşturup alanı buraya yazdırmak excelde bunu direkt açar ki ? forumda bir sürü örnek var.
metin ve sayıyı nasıl ayıracağın belli, sonunada virgül koydum sen noktalı virgülde koyabilrsin.
bu arada basit bir döngü kurmak bu kadar zor gelmesin. sen bir adımı at gerisini getiririz sonuçta alan adlarını bilmiyoruz birşey bilmiyoruz. herşeyi devletten beklmeyin:)
yapacağın sadece uzantısı csv olan bir metin dosyası oluşturup alanı buraya yazdırmak excelde bunu direkt açar ki ? forumda bir sürü örnek var.
Kod: Tümünü seç
writeln(textdosya,'"',alandeğerimetin,'",',alandegerisayı,',');
Kişi odur ki, koyar dünyada bir eser. Eseri olmayanın yerinde yeller eser./Muhammed Hadimi
http://www.ibrahimkutluay.net
http://www.ibrahimkutluay.net/blog
http://www.ibrahimkutluay.net
http://www.ibrahimkutluay.net/blog
Listbox to Csv or EXEL
Yardımlarınız için teşekkürler.