محاسبه مانده در هر ردیف DBGrid

[afsoon_k77]

سلام
من می خوام در گرید یک ستون مانده داشته باشم که برای محاسبه آن مقدار قبلی این ستون در ردیف قبل با مقدار یک فیلد در ردیف جاری جمع یا تفریق می شه برای این کار باید چکار کنم؟
با تشکر

[Jozef]

دستورات خواندن از فیلد قبل رو به صورت یه select جداگونه بازیابی کنین و سپس محاسبات را انجام دهید.

[afsoon_k77]

فیلد مانده از نوع fkCalculated هست و نمیشه select گرفت

[حسین شهریاری]

یه فیلد محاسباتی ایجاد کنیدو...

Adotable.fieldbyname('Mande').asfloat:=Adotable.fi  eldbyname('Bes').asfloat-Adotable.fieldbyname('Bed').asfloat+Value;

Value:=Value+Adotable.fieldbyname('Bed').asfloat-Adotable.fieldbyname('Bes').asfloat

البته قبلا باید مقدار متغیر Value را صفر کرده باشید.

[khoshblagh]

[quote=shahriar63;957908]یه فیلد محاسباتی ایجاد کنیدو...

Adotable.fieldbyname('Mande').asfloat:=Adotable.fi  eldbyname('Bes').asfloat-Adotable.fieldbyname('Bed').asfloat+Value;

Value:=Value+Adotable.fieldbyname('Bed').asfloat-Adotable.fieldbyname('Bes').asfloat

میشه در باره این کد توضیح بدهید؟ متشکرم

[afsoon_k77]

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

      DataSet['Mandeh']:=Temp_Mandeh+dataset.FieldByName('Bad').AsFloat-dataset.FieldByName('Bes').AsFloat;

     Temp_Mandeh:=dataset.FieldByName('Mandeh').AsFloat  ;

در دستوری که نوشتم Temp_Mandeh اسم متغیرم که از نوع Float و نوع فیلدم هم از این نوع
این متغیر در واقع حاوی مقدار فیلد مورد نظرت در رکورد قبلی
در رویداد BeforeOpen دیتاستت مقدار این متغیر باید صفر بشه
موفق باشی

[khoshblagh]

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

     DataSet['Mandeh']:=Temp_Mandeh+dataset.FieldByName('Bad').AsFloat-dataset.FieldByName('Bes').AsFloat;

    Temp_Mandeh:=dataset.FieldByName('Mandeh').AsFloat  ;

در دستوری که نوشتم Temp_Mandeh اسم متغیرم که از نوع Float و نوع فیلدم هم از این نوع
این متغیر در واقع حاوی مقدار فیلد مورد نظرت در رکورد قبلی
در رویداد BeforeOpen دیتاستت مقدار این متغیر باید صفر بشه

موفق باشی

میشه یک نمونه ارائه بدهید. متشکرم

[afsoon_k77]

این یک نمونه بود دیگه کجاش و نمی فهمی؟

[danesh1351]

دوست عزيز خوب دقت كن
فيلد محاسباتي را ايجاد كن .
يك متغيير اوليه ايجاد كن و مقدار اوليه مناسب را قبل از باز كرد جدول وارد كن .
در رويداد oncalc فيلد محاسباتي يك Query بنويس كه شرطي داشته باشد كه مقادير قبلي فيلد مورد نظر را محاسبه كرده و برگرداند .
سپس :
متغيير اوليه = متغير اوليه + مقدار محاسبه شده Query
مقدار فيلد محاسباتي = مقدار متغير اوليه

[hedayat]

بابت نظرات دوستان ممنون
اين قطعه كد كاملا جواب مي ده
ولي يه ايراد اساسي داره
اونم اينه كه اگه روي گريد كليد pageup يا pageDown رو بزني كلا بهم مي ريزه

كسي براي اين قضيه راه حلي نداره؟؟؟

[hp1361]

بابت نظرات دوستان ممنون
اين قطعه كد كاملا جواب مي ده
ولي يه ايراد اساسي داره
اونم اينه كه اگه روي گريد كليد pageup يا pageDown رو بزني كلا بهم مي ريزه

كسي براي اين قضيه راه حلي نداره؟؟؟

سلام

پیشنهاد من اینه که محاسبات ر سمت دیتا بیس انجام بدی و نتیجه رو در دیبی گرید نمایش بدی. یعنی اینکه مانده گیری برای هر رکورد و مانده کل مربوط به تمام رکورد های پیشین رو درون دیتا بیس انجام بدی.

بدین صورت که با استفاده از یک کویری موارد مورد نظرت رو از دیتابیس بخوای:

SELECT

	[RegDate],

	Bes,Bed,Bes-Bed AS Mande,

	SUM(Bes-Bed) OVER (ORDER BY [RegDate] ROWS UNBOUNDED PRECEDING) As MandeKol

FROM dbo.TblMain

WHERE RegDate>='2016-09-03' AND RegDate<='2016-09-05'

ORDER BY [RegDate];

2016-09-03_10-21-13.jpg

البته اسم ستونها رو بخاطر خوانایی بیشتر برای شما اینطوری نامگذاری کردم و معمولا اسامی با معنی نزدیک انگلیسی ارجح ترند. تاریخ رو هم قاعدتا شما بصورت پارامتر ارسال خواهید کرد

پ.ن : لازم به یادآوری ست که این کویری روی SQL SERVER 2012 به بالا کار خواهد کرد.

پ.ن 2: اگر از Firebird 3 استفاده کنید، کد SQL به شکل زیر قابل استفاده خواهد بود

select 

  regdate,

  bed,

  bes,

  bes-bed AS Mande,

  sum(bes-bed) over(order by regdate) as mondekol

from new_table

order By RegDate

موفق باشیم

[یوسف زالی]

برای نسخه های پایین تر اس کیو ال (تا 2000 تست کردم) هم می تونید از این راه استفاده کنید:

select *, 0 Mande

into #T

from TBL

order by RegDate





decalre @Mande decimal

set @Mande = 0





update #T

set @Mande = Mande = @Mande + Bes - Bed





select *

from #T





drop table #T

[Hassan247]

***سلام خسته نباشین ***
میخوام ستونهای یک فیلد رو با یک ادیت ضرب کنم و حاصل هر ستون رو روبروی همون ستون در فیلد دیگر قرار دهد
لطفا راهنمایی کنید
*** با تشکر فراوان ***

[omegao]

بابت نظرات دوستان ممنون
اين قطعه كد كاملا جواب مي ده
ولي يه ايراد اساسي داره
اونم اينه كه اگه روي گريد كليد pageup يا pageDown رو بزني كلا بهم مي ريزه

كسي براي اين قضيه راه حلي نداره؟؟؟

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

if DataSet1.State = dsInternalCalc then begin



end;