主题：金额为正负数问题

 呵呵，那个分式运算好熟悉啊。代码

Select Case  e.DataCol.Name
    Case "收支"
         If e.DataRow("收支") = "支" Then
             e.DataRow("金额") = Math.Abs(e.DataRow("金额")) * -1
         Else
             e.DataRow("金额") = Math.Abs(e.DataRow("金额"))
         End If
End Select