دوست عزیز سلام
شما ابتدا باید برای dataenviromentیک connectionتعریف کنی .بعد روی اون کلیک راست کنی و گزینهpropertyرو انتخاب کنی و اتصال به databaseرو اونجا انجام بدی.بعد دوباره روی connectionراست کلیک کن و یک commandرا addکن و در گزینه propertyاون هم یک جدول را انتخاب کن یا یک querبنویس .بعد یک datareportتعریف کن و از داخل commandفیلدها را بکش روی صفحه datareportو رکورد ست و دیتا بیس datareportراهم DataEnvironmentو commandقرار بده .حالا جایی که dataenviroment را صدا میزنی کدهای زیر را اضافه کن :
If DataEnvironment1.rsCommand12.State = adStateOpen Then
DataEnvironment1.rsCommand12.Close
End If
DataEnvironment1.rsCommand12.open "select * from mahsol where noe ='" & temp1 & "'"
DataEnvironment1.rsCommand12.Requery
DataReport12.Sections("section4").Controls ("label9").Caption = date1(False)
DataReport12.Sections("section4").Controls ("label10").Caption = temp1
DataReport12.Show
نحوه ارسال متغییر به dataenvironmentرا هم میبینی که توسط sectionها است.
اگر بازم اشکال داشتی خبر کن.