主题：这段代码错在什么地方啊？

 剩余数量 发生变化时

Dim dar As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "剩余数量","状态"
        If dar.IsNull("剩余数量") And dar("剩余数量") > 0 Then 
            dar("状态") = 2
       
 If dar.IsNull("剩余数量") And dar("剩余数量") <= 0 Then            
dar("状态") = 6

 

else

if 表 2中的  状态=9 then  dar("状态") = 表2（”状态“）

        End If
End If

 

 

我的设计思路是。如果剩余数量 大于 0  状态 =2  如果剩余数量<=0 则  状态 =6

 

但是测试结果并不能得到这种效果，不知道是哪里出了问题。还望给位大侠指教

是因为 表达式的原因么？ 剩余数量的 是通过 表达式计算出来的，难道不能触发datachange 事件？