UpgradeVB6Code
چهارشنبه 28 فروردین 1387, 14:48 عصر
سلام
من Active Report رو دانلود کردم و نصب کردم حالا این گزینه به منو اضافه شده (فکر میکنم بعد از نصب اکتیو ریپورت اضافه شد)
http://barnamenevis.org/forum/attachment.php?attachmentid=16346&stc=1&d=1208338945
اگر بخوام با اکتیو ریپورت گزارش بگیرم باید روی این گزینه توی عکس کلیک کنم یا
از طریق گزینه References به پروژه اضافش کنم یا از فهرست کامپوننت ها ؟؟؟
من گذارش دینامیک نمیخوام میخوام فرم گذارش رو طراحی کنم بعد توی پروژه باشه مثل دیتا ریپورت !
و سوال اصلیم اینه که چه جوری رکوردست رو بهش بدم مثل کاری که توی دیتا ریپورت میکردم !
RecorSet.Open "SELECT * FROM Table1 WHERE ID =" & Text1.Text
Set DataReport1.DataSource = rec
DataReport1.Sections(3).Controls("Text1").DataField = "Field1"
DataReport1.Sections(3).Controls("Text2").DataField = "Field2"
DataReport1.Sections(3).Controls("Text3").DataField = "Field3"
DataReport1.Sections(3).Controls("Text4").DataField = "Field4"
DataReport1.Sections(3).Controls("Text5").DataField = "Field5"
DataReport1.Sections(3).Controls("Text6").DataField = "Field6"
DataReport1.Refresh
DataReport1.Show
من Active Report رو دانلود کردم و نصب کردم حالا این گزینه به منو اضافه شده (فکر میکنم بعد از نصب اکتیو ریپورت اضافه شد)
http://barnamenevis.org/forum/attachment.php?attachmentid=16346&stc=1&d=1208338945
اگر بخوام با اکتیو ریپورت گزارش بگیرم باید روی این گزینه توی عکس کلیک کنم یا
از طریق گزینه References به پروژه اضافش کنم یا از فهرست کامپوننت ها ؟؟؟
من گذارش دینامیک نمیخوام میخوام فرم گذارش رو طراحی کنم بعد توی پروژه باشه مثل دیتا ریپورت !
و سوال اصلیم اینه که چه جوری رکوردست رو بهش بدم مثل کاری که توی دیتا ریپورت میکردم !
RecorSet.Open "SELECT * FROM Table1 WHERE ID =" & Text1.Text
Set DataReport1.DataSource = rec
DataReport1.Sections(3).Controls("Text1").DataField = "Field1"
DataReport1.Sections(3).Controls("Text2").DataField = "Field2"
DataReport1.Sections(3).Controls("Text3").DataField = "Field3"
DataReport1.Sections(3).Controls("Text4").DataField = "Field4"
DataReport1.Sections(3).Controls("Text5").DataField = "Field5"
DataReport1.Sections(3).Controls("Text6").DataField = "Field6"
DataReport1.Refresh
DataReport1.Show