مشکل در حل یک مساله

[Delphi7_love]

با سلام خدمت دوستان عزیز


من مشغول نوشتن یه برنامه حسابداری هستم


که یه جدول به شکل زیر دارم




tb1


ردیف


شرح


مبلغ جز


نحوه محاسبه


مانــــــــده


1


صندوق


120000

1


2


بانک


250000

2


3


داراییهای جاری


0

1+2


4


زمین


100000

4


5


مغازه


200000

5


6


داراییهای غیر جاری


0

4+5


7


جمع داراییها


0

3+6


8


بدهیها


500000

8


9


سرمایه


0

7-8





توضیحات : در هر ردیف یه مبلغ جز داریم که ممکنه 0 یا بزرگتر از 0 باشد


حال میخوام ستون مانده با توجه به ستون نحوهمحاسبه پر شود ، مثلا در ردیف 1 ستون نحوه محاسبه برابر با 1 می باشد پس باید فیلدمانده برابر با 120000 باشد ، ردیف 2 برابر با 2 می باشد پس ستون مانده برابر با 250000 می باشد ، ردیف 3 برابر با 1+2 است پس ستون مانده برابر با ردیف 1 + ردیف 2 می باشد یعنی 270000 . به همین شکل تا آخر پیش می رویم
حال مشکل من در نحوه پیاده سازی الگوریتم است که چگونه اینکار را انجام دهم

جدول حل شده :



tb1


ردیف


شرح


مبلغ جز


نحوه محاسبه


مانده


1


صندوق


120000

1

120000


2


بانک


250000

2

250000


3


داراییهای جاری


0

1+2

270000


4


زمین


100000

4

100000


5


مغازه


200000

5

200000


6


داراییهای غیر جاری


0

4+5

300000


7


جمع داراییها


0

3+6

570000


8


بدهیها


500000

8

500000


9


سرمایه


0

7-8

70000

[حمید محمودی]

یک عکس از TABLE خودتون بصورت مرتب بذارید، ببینده بتونه رغبت بکنه سوال شما رو نگاه بندازه. سوال هم سوال های قدیم ....