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

[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

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

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

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

با تشکر