主题：负数怎么处理，下面的代码怎么不起作用？

Select Case e.DataCol.name
    Case "yishou","zore","tajin"
        If e.DataRow("yishou")  > e.DataRow("tajin")Then
            e.DataRow("zore")=e.DataRow("yishou") -e.DataRow("tajin")
        Else e.DataRow("zore")=0
        End If
End Select

我的想法是如果 yishou 大于 tajin   then

e.DataRow("zore")=e.DataRow("yishou") -e.DataRow("tajin")

反之

zore =0  （即 ：z0re列不能为负数）