DBGrid1 columns larını caption isim vererek kaydediyorum ve sonrasında bunları ,
Aşağıdaki Kod yardımı ile ListCheckBox1 e aktarıyorum ama buraya da tablo da ki alanlar geliyor FATUIRS_NO Caption a ben Belge No yazıyorum bunun gelmesini istiyorum.
kaydettikten sonra da geri çağırdığımda hangi alanları işaretlediysem o şekilde gelmesini istiyorum. Ama ben bir türlü beceremedim . Yardımlarınıza ihtiyacım var.
Kod: Tümünü seç
var
I,S:Integer;
begin
Dbgrid1.Columns.Clear;
S:=0;
For I:=0 To Listele.Items.Count-1 do begin
If Listele.Checked[I] Then begin
Dbgrid1.Columns.Add;
Dbgrid1.Columns[S].Title.Caption:=Listele.Items[I];
Dbgrid1.Columns[S].FieldName :=Listele.Items[I];
S:=S+1;
end;
end;
end;