چگونه می توان در QuickReport یک فیلد جدا درست کرد و به عنوان ردبف از آن استفاده کرد .

[دنی کوئیل]

چگونه می توان در QuickReport یک فیلد جدا درست کرد و به عنوان ردبف از آن استفاده کرد .
در واقع شماره رکورد ها را در آن فیلد قرار دهیم

[mzjahromi]

اگر مشکل سوال قبلی رو حل کنید (با CalcField) اینجا هم مشکلتون حل میشه چون اینجوری یک فیلد اضافه داری که می تونی هر کاری باهاش بکنی

[Touska]

شما باید از QrExpr استفاده کرده و در آن از count استفاده نمایید.

[دنی کوئیل]

بیشتر توضیح بدهبد
بیشتر توضیح بدهبد
بیشتر توضیح بدهبد
بیشتر توضیح بدهبد
بیشتر توضیح بدهبد

[mzjahromi]

ببین
رو DataSet دو بار کلیک کن
بعد تو صفحه ظاهر شده راست کلیک کن و add all fields رو بزن
بعد دوباره راست کلیک کن و NewField رو بزن
بعد یه Field از نوع Calculated ایجاد کن
بعد تو رخداد Oncalc بنویس

  dataset.fieldbyname('fieldName').AsInteger:=DataSe  t.RecNo;

اینهم جواب کامل

[دنی کوئیل]

اگه اشتباه نکنم منظور شما از Dataset باید AdoTable باشد

بعد اون کدی که گفتی تو رخداد کدام کنترل بنویسم ؟

[mzjahromi]

نه منظور من Dataset بود
Ado table هم یه نوع DataSet هست
AdoTable
AdoQuery
TTable
TQuery
...

[دنی کوئیل]

آفرین آقای mzjahromi
آفرین آقای mzjahromi
آفرین آقای mzjahromi
آفرین آقای mzjahromi

[دنی کوئیل]

فقط یک مشکل

چرا اولین شمار رکورد را 1- میزنه ؟

[mzjahromi]

آفرین آقای mzjahromi
آفرین آقای mzjahromi
آفرین آقای mzjahromi
آفرین آقای mzjahromi

خواهش می کنم
ضمنا MZjahromi اسم من نیست ID منه

[mzjahromi]

فقط یک مشکل

چرا اولین شمار رکورد را 1- میزنه ؟

من تا حالا با این مشکل برخورد نکردم ولی خوب اگر رکوردهای بعدی شماره شونو درست میزنه خودتون با کد نویسی اون یکی رو درست کنید

  if Recno=-1 then 

    recno=1;

البته این شبه کد هست

[ali_zapata]

سلام

من یه راه ساده میگم کخ همیشه هم جواب میده:
یه متغیر مثلا radif توی یونیتت تعریف کن. بعد مثلا توی detail band و توی رخداد BeforPrint بنویس:
radif := radif + 1
اونوقت توی رخداد OnPrint مربوط به lable ردیفت بنویس:
Value := IntToSr(radif)

البته قبل ار هر پرینت باید: radif := 0 باشه .
پس radif رو به صورت public تعریف کن که از unit های دیگه هم قابل دسترسی باشه.

[دنی کوئیل]

سلام

من یه راه ساده میگم کخ همیشه هم جواب میده:
یه متغیر مثلا radif توی یونیتت تعریف کن. بعد مثلا توی detail band و توی رخداد BeforPrint بنویس:
radif := radif + 1
اونوقت توی رخداد OnPrint مربوط به lable ردیفت بنویس:
Value := IntToSr(radif)

البته قبل ار هر پرینت باید: radif := 0 باشه .
پس radif رو به صورت public تعریف کن که از unit های دیگه هم قابل دسترسی باشه.

دوست عزیز مشکل من خیلی وقت پیش حل شد

اونم این بود که در lbl ردیف در رویداد OnPrint این کد را نوشتم

  Value := intToStr(ADOTable_ModiriatUser.RecNo )

موفق باشی

[سید مسعود موحد]

بابا شما ها چرا لقمه رو میچرخونید به جواب اقا مصطفی یک نگاهی بیندازید

شما باید از QrExpr استفاده کرده و در آن از count استفاده نمایید.

البته میشود بجای Count از DetailNo هم (اگر اسمشو درست نوشته باشم) استفاده کرد

[دنی کوئیل]

بابا شما ها چرا لقمه رو میچرخونید به جواب اقا مصطفی یک نگاهی بیندازید



البته میشود بجای Count از DetailNo هم (اگر اسمشو درست نوشته باشم) استفاده کرد

اون جواب آقا مصطفی را نقل قول کن

[سید مسعود موحد]

دنی جان من که نقل قول کردم
Toska‌همان آقا مصطفی میباشد.

[mandana2010]

خوب با یه دستور if مشکلت رو حل کن بدین صورت که در دستورت بگه گه مقدارش 1- است اون رو 1 بذار