درج شماره ردیف در گزارش گیری توسط datareport

[نعیم رضاییان]

سلام
من یک گزارش با datareport درست کردم با قرار دادن دیتابیس مشگلی ندارم اما میخوام در کنار هر سطر یک شماره ردبف قرار بدم میشه در این مورد راهنمایی کنید

مرسی

[مهدی ذوقی]

با سلام
دوست عزیز من هفته ها به دنبال راه حلش می گشتم چه در این سایت و چه در سایتهای دیگه
ولی فایده ای نداره شما باید از کریستال ریپورت که برنامه ای است جهت گزارشگیری استفاده کنی
در ضمن یک جستجوئی هم تو این سایت انجام بده قبلا هم تاپیکهائی با این موضوع وجود داشته اند

[mohammad diba]

دوست عزیز این کار زیاد سخت نیست. فقط کافی است یک فیلد (ترجیجا از نوع رشته ای) در رپورت خود قرار دهید(ممکن است این فیلد تکراری باشد) و یک فرمت کلی به آن بدهید

Dim WithEvents myf As StdDataFormat
Dim RECORDNUM As Long
Private Sub DataReport_Initialize()
RECORDNUM = 0
Set myf = New StdDataFormat
Set DataReport1.Sections("section1").Controls("TEXT1").DataFormat = myf
End Sub

Private Sub myf_Format(ByVal DataValue As StdFormat.StdDataValue)
RECORDNUM = RECORDNUM + 1
DataValue = RECORDNUM
End Sub

[mohammad diba]

اگر مشکلتون حل نشد بگویید تا براتون mailبزنم. و بیشتر توضیح بدهم.

[نعیم رضاییان]

اقا از راهنمایی شما منئنم یه سوال دیگه میشه در section ها خیر از section1 متغییر استفاده کرد

[mohammad diba]

سوالتون واضح نیست ولی اگه میخواهید مقادیر متغیر به datareportارسال کنید مثل تاریخ بگویید تا یک مثال برتون بفرستم.