adotable1-datasource1---Master tablo
RNO-RSAYI-RADI
adotable2-datasource2 --Detail tablo
RDNO-RDSAYI-RDADI
adotable2 nin master source une datasource1 i tanımladım. RSIRA ile DSIRA yı ilişkilendirdim.
ve formun create ine aşağıdaki kodları yazdım ama bir türlü listboxa yükletemedim. datasource1 in data change ine kodları yazdım hata veriyor. sorun nerededir acaba.
Kod: Tümünü seç
[color=green]procedure TForm1.FormCreate(Sender: TObject);
begin
Adotable2.First;
Repeat
If FileExists('C:\prj\resim\'+(Adotable1RNO.AsString+'_'+Adotable2RDSAYI.AsString)+'.jpg') then
ListBox1.Items.Add('C:\prj\resim\'+(Adotable1RNO.AsString+'_'+Adotable2RDSAYI.AsString)+'.jpg')
else
ListBox1.Items.Add('C:\prj\resim\gul.jpg');
Adotable2.Next;
Until Adotable2.EOF;
end;[/color]