هذا الكود من خلال vb6 واريد تحويله الى vb.net 2008
وارجوا المساعده منالاخوه الافاضل
Dim i, DB, cr, openbal, bal, sumdb, sumcr openbal = 0: sumdb = 0: sumcr = 0 For i = 1 To rep1.Rows - 1 rep1.Row = i rep1.Col = 4 DB = Val(rep1.Text) sumdb = sumdb + DB rep1.Col = 5 cr = Val(rep1.Text) sumcr = sumcr + cr bal = openbal + DB - cr rep1.Col = 6 rep1.Text = bal openbal = bal Next i
وهذا التعديل الذى قمت به
Dim i, DB, cr, openbal, bal, sumdb, sumcr
openbal = 0 : sumdb = 0 : sumcr = 0
For i = 1 To DataGridView1.Rows.Count - 2
DataGridView1.RowCount = i
DataGridView1.ColumnCount = 3
DB = Val(DataGridView1.Text)
sumdb = sumdb + DB
DataGridView1.ColumnCount = 4
cr = Val(DataGridView1.Text)
sumcr = sumcr + cr
bal = openbal + DB - cr
DataGridView1.ColumnCount = 5
DataGridView1.Text = bal
openbal = bal
Next iولم يعمل معى ارجوا التصحيح ولكم جزيل الشكر