الdata grid والdatarepot

لماذالم أجد رد

حسب ما فهمت من سؤالك انك تريد عمل استعلامين من جدولين مختلفين وإظهارهما في التقرير ؟

اعمل استعلام مثلا واحفظ النتيجة في متغير

Adodc1.RecordSource = "select * from [Title Author] where Au_ID=203"
Adodc1.Refresh
ta = Adodc1.Recordset.Fields(1)

ثم اعمل الاستعلام الاخر واحفظ النتيجة في متغير آخر

y = InputBox("ãä ÝÖáß ÃÏÎá ÑÞã ÇáßÇÊÈ")

Adodc1.RecordSource = "select * from authors where AU_ID=" & y
Adodc1.Refresh
sa = Adodc1.Recordset.Fields(1)

ثم اكتب الامر الذي يشير إلى مصدر الادوات الموجودة في التقرير

DataReport1.Sections("section1").Controls("label3").Caption = sa
DataReport1.Sections("section1").Controls("label4").Caption = ta

REPORT.zip