以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  平方和的代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=93184)

--  作者:sujian
--  发布时间:2016/11/22 14:46:00
--  平方和的代码
第一列,第二列,为数据列。第三列为第一列的2次方加第二列的2次方的和,第三列为数据列,不能用表达式,那么第三列的代码怎么写,第四列为第三列的平方根,
--  作者:有点蓝
--  发布时间:2016/11/22 14:59:00
--  
Select Case e.DataCol.Name
    Case "第一列","第二列"
        If e.DataRow.IsNull("第一列") = False OrElse e.DataRow.IsNull("第二列") = False
            e.DataRow("第三列") = val(e.DataRow("第一列")) ^ 2 + val(e.DataRow("第二列")) ^ 2
            e.DataRow("第四列") = math.Sqrt(e.DataRow("第三列"))
        Else
            e.DataRow("第三列") = Nothing
            e.DataRow("第四列") = Nothing
        End If
End Select


--  作者:sujian
--  发布时间:2016/11/24 14:01:00
--  
谢谢大师,本人是个菜鸟,非常感谢!