标题：请教 数量*单价等于负数

B列有列表项目“收入”、“支出”，要求当B列为支出时（  [数量]*[单价]=[金额]），[金额]列的数据自动为负数。代码如何表述。

谢谢！

如果是表达式：

IIF([B] = '支出', ，[数量]*[单价], -[数量]*[单价])

DataColChanged事件：

Select Case  e.DataCol.Name

    Case "收入", "支出","B"

         If e.DataRow("B") = “支出” Then
             e.DataRow("金额") = -e.DtaRow("数量") * e.DtaRow("单价")

         Else

             e.DataRow("金额") = e.DtaRow("数量") * e.DtaRow("单价")

         End If

End Select