主题：[求助]请问下面的代码错误在哪……

Dim v As String
If e.DataRow.IsNull("金额") = False And e.DataRow("收支") = "支出" Then 

    Dim r As Single = e.DataRow("金额")　　　‘金额列为单精度类型。
    v="-" & CStr(r)
    r=CSng(v)
    e.DataRow("金额") = r
End If

想法是：如果“收支”列为“支出”，则在“金额”中加上“－”号。以上代码是“DataColChanged”事件中编写的，请大仙们指出错误在哪……

If e.DataCol.name = "收支" Then '判断列名是必须的
    If e.DataRow.IsNull("金额") = False And e.DataRow("收支") = "支出" Then
        If e.DataRow("金额") > 0 Then
            e.DataRow("金额") = - e.DataRow("金额")
        End If
    End If
End If

谢狐爸，错误消失了，要改一下所判断的列名。原来我将求相反数想复杂了！

If e.DataCol.name = "金额" Then '判断列名是必须的
　　If e.DataRow.IsNull("金额") = False And e.DataRow("收支") = "支出" Then
　　　　If e.DataRow("金额") > 0 Then
　　　　　　e.DataRow("金额") = - e.DataRow("金额")
　　　　End If
　　End If
End If

-1*e.DataRow("金额")