Bakiye Sorunu

[msonmez]

Merhaba,

Aşağıdaki Query i çalıştırdığımda sorunsuz olarak çalışıyor yapmak istediğim şu;

bakiye rs(5) bölümünün yürüyen bakiyesini getirebilmek istiyorum.

a b c
100 50 50
200 0 250



sSQL = "SELECT B.KOD, B.ACIKLAMA, A.YILAYGUN, A.BORC, A.ALACAK,(A.BORC-A.ALACAK) AS BAKİYE FROM MUH_TOPLAM_GUN A INNER JOIN MUH_HESAP B ON B.LOGICALREF=A.HESAPREF WHERE B.KOD LIKE '%100.03.0.4.00.00.0673' AND A.DOVIZ_TURU=160 AND A.TOPLAM_TURU=1 ORDER BY B.KOD, A.YILAYGUN"

rs.Open sSQL, cn
rs.MoveFirst
Do While Not rs.EOF

Set Dal = ListView2.ListItems.Add(, "no" & rs(2), rs(2))

ListView.AddItem rs![B.ACIKLAMA] & "|" & rs![A.YILAYGUN] & "|" & "|" & rs![A.BORC] & "|" & "|" & rs![A.ALACAK] & "|" & "|" & rs![BAKIYE]

If Not IsNull(rs(1)) Then Dal.SubItems(1) = rs(1)
If Not IsNull(rs(2)) Then Dal.SubItems(2) = rs(2)
If Not IsNull(rs(3)) Then Dal.SubItems(3) = rs(3)
If Not IsNull(rs(4)) Then Dal.SubItems(4) = rs(4)
If Not IsNull(rs(5)) Then Dal.SubItems(5) = rs(5)
If Not IsNull(rs(6)) Then Dal.SubItems(6) = rs(6)


rs.MoveNext



Loop