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

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列不能为负数）

tajin 是表达式列，修改此列数据的时候，不会触发datacolchanged事件代码。

你要去子表触发一下。

Select Case e.DataCol.name
    Case "shuliang", "tuihuo", "price"
        DataTables("xiaoshoudanhao").DataCols("yishou").RaiseDataColChanged("xiaoshoudan = '" & e.DataRow("xiaoshoudanhao") & "'")
End Select