主题：前辈们帮忙修改一下代码呗。谢谢了！！

（如果当前表（quhuojilu）的状态 小于6  执行条件1， 条件2，

   如果当前表（quhuojilu）的状态 >=6  执行条件3（ quhuojilu 的状态 = quhuolu表的 状态）

If e.DataRow("状态")< 6 Then  （如果当前表（quhuojilu）的状态 小于6
Dim aa As Integer= e.DataRow("应取数量")-e.DataRow("已取数量")
If e.DataRow("应取数量") <> 1 And aa >0 Then    ‘条件1
e.DataRow ("状态")= 2
Else If e.DataRow("应取数量") <> 1 And aa =0 Then  ’条件2
e.DataRow ("状态")= 6

Else
Dim tbl As Table = Tables("quhuolu")
    If tbl.Current IsNot Nothing Then
            e.DataRow("状态")= Tables("quhuolu").Current("状态") 

End If
End If
End If