以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]第一列值不是负数第二列负数号去除  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=179551)
--  作者：miaoqingqing
--  发布时间：2022/8/29 16:24:00
--  [求助]第一列值不是负数第二列负数号去除
如题，求助下面代码怎么把第二列负数变正数

If e.DataCol.Name = "第一列" Then
    Dim s As String = e.DataRow("第二列")
    \'If e.DataRow("第一列") = Nothing And e.DataRow("第二列") > 0  Then
    If e.NewValue = "负数" Then 
        e.DataRow("第二列")  = "-" & s
    End If
    
    If e.OldValue = "负数" Then \'如果原来的等级是A
        If e.NewValue <> "负数" Then \'且新的等级为D
            e.DataRow("第二列")  = "+" & s
        End If
    End If
End If
[此贴子已经被作者于2022/8/29 16:24:40编辑过]
--  作者：有点蓝
--  发布时间：2022/8/29 16:30:00
--  
"第二列"是字符列？还是数值列？
--  作者：miaoqingqing
--  发布时间：2022/8/29 16:37:00
--  回复：（有点蓝）"第二列"是字符列？还是数值列？
数字列，双精度
--  作者：有点蓝
--  发布时间：2022/8/29 16:45:00
--  
Dim s As double= math.abs(e.DataRow("第二列"))
……
    If e.NewValue = "负数" Then 
        e.DataRow("第二列")  = -1 *  s
    End If
……
        If e.NewValue <> "负数" Then \'且新的等级为D
            e.DataRow("第二列")  = s
        End If

[此贴子已经被作者于2022/8/29 16:57:27编辑过]
--  作者：miaoqingqing
--  发布时间：2022/8/29 16:52:00
--  回复：（有点蓝）Dim s As double= math.ab...
蓝主，上图代码保存不了，报错：
abc 不是system.Math的成员

我的版本是今年2月份的版本，不能升级了，是否这个原因造成的报错？
--  作者：miaoqingqing
--  发布时间：2022/8/29 16:57:00
--  
蓝主，上图代码保存不了，报错：
abc 不是system.Math的成员
改成Math.Abs，也报错
Dim s As Double= math.Abs(e.DataRow("第二列"))

If e.NewValue = "负数" Then
    e.DataRow("第二列")  = -1 *  s
End If

If e.NewValue <> "负数" Then \'且新的等级为D
    e.DataRow("第二列")  = s
End If

我的版本是今年2月份的版本，不能升级了，是否这个原因造成的报错？
--  作者：有点蓝
--  发布时间：2022/8/29 16:57:00
--  
打错字，自己改改：http://www.foxtable.com/webhelp/topics/0267.htm
--  作者：miaoqingqing
--  发布时间：2022/8/29 17:10:00
--  回复：（有点蓝）打错字，自己改改：http://www.foxta...
蓝总，还有一个问题请教：
下面代码没反应，求助
If e.DataCol.Name = "第二列" Then
    If e.NewValue = True And  e.DataRow("第一列")  = "负数" Then
        Dim s As Double = Math.Abs(e.DataRow("第二列"))
        e.DataRow("第二列")  = -1 *  s
    End If
End If
--  作者：有点蓝
--  发布时间：2022/8/29 17:14:00
--  
e.NewValue = True是判断什么的？
--  作者：miaoqingqing
--  发布时间：2022/8/29 18:23:00
--  回复：（有点蓝）e.NewValue = True是判断什么的？
蓝主，值变化了，e.NewValue = True 这样写有问题吗？