سوال: سؤالي در مورد ديتا ريپورت [بایگانی]

mahmood3d

سه شنبه 05 شهریور 1387, 19:15 عصر

سلام دوستان
من تو قسمت Header گزارشم مي خوام يك عبارت Dynamic داشته باشم يعني اطلاعاتشو از ديتابيس بگيره ولي من تو قسمت هيدر نمي تونم از rpt Text Box استفاده كنم و با استفاده از rpt Lable هم نمي تونم اطلاعتم رو از ديتابيس بگيرم .
از دوستان اگه راه حل رو مي دونن راهنمايي كنن .

rezankh

چهارشنبه 06 شهریور 1387, 00:56 صبح

سلام دوستان
من تو قسمت Header گزارشم مي خوام يك عبارت Dynamic داشته باشم يعني اطلاعاتشو از ديتابيس بگيره ولي من تو قسمت هيدر نمي تونم از rpt Text Box استفاده كنم و با استفاده از rpt Lable هم نمي تونم اطلاعتم رو از ديتابيس بگيرم .
از دوستان اگه راه حل رو مي دونن راهنمايي كنن .

اول از همه كريستال ريپورت خيلي بهتره ولي در ديتاريپورت من در مورد چاپ تاريخ و زمان سيستم از اين روش استفاده كردم ( سي دي آموزش پيشرفته VB شركت اينياك) قرار دادن دو ليبل يكي براي زمان وديگري براي تاريخ و سپس در برنامه هنگام ورود به نمايش فايل گزارش كدهاي زير رو نوشتم :

'DataEnvironment1.rsCommand1.Source = "select * from Sanad
DataEnvironment1.rsCommand1.Open

DataReport1.Sections(1).Controls(Lb1).Caption = Date
DataReport1.Sections(1).Controls(Lb1).Text = Time

DataReport1.refresh
DataReport1.show

ali_habibi1384

چهارشنبه 06 شهریور 1387, 08:10 صبح

به این نمونه دقت کنید. شما می تونید قبل از چاپ از درون فرمهای دیگر اطلاعات مورد نظر هر قسمت از گزارش رو تغییر بدید:

datareport1.Sections("section4").Controls("lbldate").Caption = lbldate.Caption

mahmood3d

پنج شنبه 07 شهریور 1387, 17:14 عصر

DataReport1.Sections(1).Controls(Lb1).Caption = Date
DataReport1.Sections(1).Controls(Lb1).Text = Time

DataReport1.refresh
DataReport1.show

datareport1.Sections("section4").Controls("lbldate").Caption = lbldate.Caption

دوست عزيز وقتي به اين طريق عمل مي كنم پيغام خطاي Invalid argument رو نشون مي ده

فاطمه وطن دوست

پنج شنبه 07 شهریور 1387, 19:23 عصر

سلام

With DataReport1.Sections("Section4").Controls
.Item("LABEL6").Caption = rec("name").Value
End With