主题：请教

  以下代码出现死循环，请教各位老师 问题出在哪

Dim t1 As Table = Tables("库存表")

Dim a1 As Integer

For a1= 0 To t1.Rows.count-1

DIM sum AS Integer

DIM mj AS Integer = t1.Rows(a1)("码级")

   If mj > 1 then

   Do while  t1.Rows(a1)> mj-1

     sum=sum + t1.Rows(a1)("库存")

     a1=a1-1

LOOP

t1.Rows(a1)("库存")=sum

End if

next

库存表格式如下：

那些更不会啊，

我换个思路，用这样的类名是否用编码好实现库存的汇总：水果的库存=西瓜 苹果  香蕉的库存之和，苹果的库存数= 红富士 红将军 新红星的库存之和，香蕉的库存数= 各种香蕉的的库存之和。