Taksitli Satışları Stringgride Aktarmada Sorun

[F.Atagun]

Selamlar,
Verileri Stringgride aktarmaya çalışıyorum ama bir türlü beceremedim. Stringgridin her bir satırına hangi form numarasına tıklandıysa onun tüm taksitlerini yerleştirmeye çalışıyorum. Başaramıyorum

Kodlarım,
Stringgriddeki tüm satırlara ilk vade ve ilk taksittutarını yazıyor. Nerede eksiklik yapıyorum lütfen döngümdeki hatanın nerde olduğunu söylermisiniz


Teşekkürler

Databasedeki verilerim şu şekilde

FormNo ---- Vadesi---------TaksitTutar
1234--------17.03.2008---------100
1234--------17.04.2008---------200
1234--------17.05.2008---------300
1234--------17.06.2008---------400




Üzerinde çalıştığım kod aşağıdaki gibidir.

Kod: Tümünü seç

Form65.StringGrid1.RowCount:=StrToInt(Form65.Edt7.Text);
i:=StrToInt(Form65.Edt7.Text);
 
  for i:=0 to Form65.StringGrid1.RowCount-1 do
  if Form65.StringGrid1.Row < Form65.StringGrid1.RowCount-1
  then
  Begin
          with Form65.stringgrid1 do
          begin
      Form65.stringgrid1.Cells[0,i]:=DBGrd1.Fields[30].Text; // TaksitVade
      Form65.stringgrid1.Cells[1,i]:=DBGrd1.Fields[29].Text;  // Taksit Tutarı
      Form65.stringgrid1.Cells[2,i]:='YTL';
          end;
  end ;

[Battosai]

Hata her yerde Yapmak istediğin şeyle alakası yok desem kodun...Bu tarz işlemlerde Dataset'i döngüye sokmalısın...
Öreneğin sorgu yaptın sonra....

var
i:integer;
begin
//........Sorgu kodunu buraya yaz...
Query.First;
i:=1;
Form65.stringgrid1.rowcount:=Query.recordcount;
while not Query.eof do
begin
Form65.stringgrid1.Cells[0,i]:=Query.Fields[30].Text; // TaksitVade
Form65.stringgrid1.Cells[1,i]:=Query.Fields[29].Text; // Taksit Tutarı
Form65.stringgrid1.Cells[2,i]:='YTL';
Query.Next;
inc(i);
end;
end;

[F.Atagun]

@Battosai Hocam,

Allah Razı Olsun . Çok tşk ederim. Ellerine sağlık ,

Tam istediğim gibi.

Hocam sorunumda bu bazen mantığını kuramıyorum ve bu püf noktaları kitaplarda, makalelerde de bulamıyorum. Sitedeki diğer arkadaşların mesajlarına bakarak birşeyler oluşturmaya çalışmıştım.

Ama sayenizde ufak ufak oturuyor bazı şeyler