مشکل در نمایش ردیف در دیتاریپورت

[amiralex]

با سلام

من یک دیتابیس اکسس دارم که برای اون یک فیلد ردیف قرار دادم و بوسیله کد زیر برای اون ردیف درست میکنم

'ساخت ردیف

Dim i As Double

adoPrimaryRS.MoveFirst

For i = 1 To adoPrimaryRS.RecordCount - 0

adoPrimaryRS.Fields(0) = Str(i)

adoPrimaryRS.Update

adoPrimaryRS.MoveNext

Next i

''''''''''''''''''''''''''''''''''''''''''''''''''  ''''''''''''''''''''''''''''''''''''''''''''''''''  ''''''''''''''''''''''''''''''''''''''''''''''''''  ''''''''''''''''

adoPrimaryRS.Requery

With Main

adoPrimaryRS.MoveFirst

Set Karkard.DataSource = adoPrimaryRS

Karkard.Orientation = rptOrientLandscape

Karkard.WindowState = 2

adoPrimaryRS.Requery

Karkard.Show

End With

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

مشکلش چیه؟

[vbhamed]

سلام
در ظاهر این قسمت برنامتون مشکلی نداره، باید اون قسمت پروژتون رو بزارید تا بیشتر بررسی بشه

[m.4.r.m]

شما به جای این کار بیا یه حلقه For بزار مقدار i رو از یک بگیر تا recordcount بعدش مقدار i رو در ردیف نشون بده در ضمن از Vsflexgrid استفاده انعطاف پذیره نه دیتاگرید.

[amiralex]

با سلام و تشکر میشه بیشتر توضیح بدید که یعنی چی مقدار i رو از یک بگیرم؟
الانم همینطوره فکر میکنم من این کار رو هم کردم جواب نداد.

Dim i As DoubleadoPrimaryRS.MoveFirst

For i = 1 To adoPrimaryRS.RecordCount

adoPrimaryRS.Fields(0) = i)

adoPrimaryRS.Update

adoPrimaryRS.MoveNext

Next i

در ضمن تو حالت چاپ میخوام ردیف داشته باشه
یعنی الان با این شرایط چاپ و میزنم از ردیف 2 در دیتاریپورت نشون میده

دیگه حتی چه فیلتر کنم چه نکنم فرقی نداره

[amiralex]

با سلام خدمت دوستان بزرگوار

مشکل و حل کردم

اشتباه از من بود که موقع فیلتر کردن از این کد استفاده کردم

adoPrimaryRS.Requery

وقتی برداشتم درست شد

یعنی نباید موقعی که دیتابیس و فیلتر میکنم از این کد استفاده کنم

البته دلیلش و نمیدونم چرا ولی وقتی برداشتم درست شد.

با تشکر