چگونه می توان در QuickReport یک فیلد جدا درست کرد و به عنوان ردبف از آن استفاده کرد .
در واقع شماره رکورد ها را در آن فیلد قرار دهیم
چگونه می توان در QuickReport یک فیلد جدا درست کرد و به عنوان ردبف از آن استفاده کرد .
در واقع شماره رکورد ها را در آن فیلد قرار دهیم
اگر مشکل سوال قبلی رو حل کنید (با CalcField) اینجا هم مشکلتون حل میشه چون اینجوری یک فیلد اضافه داری که می تونی هر کاری باهاش بکنی
You never know what you can do until you try
شما باید از QrExpr استفاده کرده و در آن از count استفاده نمایید.
بیشتر توضیح بدهبد
بیشتر توضیح بدهبد
بیشتر توضیح بدهبد
بیشتر توضیح بدهبد
بیشتر توضیح بدهبد
ببین
رو DataSet دو بار کلیک کن
بعد تو صفحه ظاهر شده راست کلیک کن و add all fields رو بزن
بعد دوباره راست کلیک کن و NewField رو بزن
بعد یه Field از نوع Calculated ایجاد کن
بعد تو رخداد Oncalc بنویس
dataset.fieldbyname('fieldName').AsInteger:=DataSe t.RecNo;
اینهم جواب کامل
You never know what you can do until you try
اگه اشتباه نکنم منظور شما از Dataset باید AdoTable باشد
بعد اون کدی که گفتی تو رخداد کدام کنترل بنویسم ؟
نه منظور من Dataset بود
Ado table هم یه نوع DataSet هست
AdoTable
AdoQuery
TTable
TQuery
...
You never know what you can do until you try
آفرین آقای mzjahromi
آفرین آقای mzjahromi
آفرین آقای mzjahromi
آفرین آقای mzjahromi
خواهش می کنمنوشته شده توسط دنی کوئیل
ضمنا MZjahromi اسم من نیست ID منه
You never know what you can do until you try
من تا حالا با این مشکل برخورد نکردم ولی خوب اگر رکوردهای بعدی شماره شونو درست میزنه خودتون با کد نویسی اون یکی رو درست کنیدنوشته شده توسط دنی کوئیل
if Recno=-1 then
recno=1;
البته این شبه کد هست
You never know what you can do until you try
سلام
من یه راه ساده میگم کخ همیشه هم جواب میده:
یه متغیر مثلا radif توی یونیتت تعریف کن. بعد مثلا توی detail band و توی رخداد BeforPrint بنویس:
radif := radif + 1
اونوقت توی رخداد OnPrint مربوط به lable ردیفت بنویس:
Value := IntToSr(radif)
البته قبل ار هر پرینت باید: radif := 0 باشه .
پس radif رو به صورت public تعریف کن که از unit های دیگه هم قابل دسترسی باشه.
دوست عزیز مشکل من خیلی وقت پیش حل شدنوشته شده توسط ali_zapata
اونم این بود که در lbl ردیف در رویداد OnPrint این کد را نوشتم
Value := intToStr(ADOTable_ModiriatUser.RecNo )
موفق باشی
بابا شما ها چرا لقمه رو میچرخونید به جواب اقا مصطفی یک نگاهی بیندازید
البته میشود بجای Count از DetailNo هم (اگر اسمشو درست نوشته باشم) استفاده کردنوشته شده توسط Touska
اون جواب آقا مصطفی را نقل قول کننوشته شده توسط سید مسعود موحد
دنی جان من که نقل قول کردم
Toskaهمان آقا مصطفی میباشد.
خوب با یه دستور if مشکلت رو حل کن بدین صورت که در دستورت بگه گه مقدارش 1- است اون رو 1 بذار