以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  公式计算  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=179993)
--  作者：liuandwang
--  发布时间：2022/9/22 10:47:00
--  公式计算
列名：       w       h       a        b            公式             计算结果
               7        8       3        5           w*h+a+b
               10      2       4        9           w*h
               7        9       1        4           w+h+a

求代码
输入“公式”后，自动显示“计算结果”
--  作者：有点蓝
--  发布时间：2022/9/22 10:51:00
--  
--  作者：liuandwang
--  发布时间：2022/9/22 11:13:00
--  
If e.DataCol.Name = "公式" Then
           e.DataRow("结果") = Eval(e.DataRow("公式"), e.DataRow)
    End If

我用的这个代码，结果显示为0
--  作者：有点蓝
--  发布时间：2022/9/22 11:19:00
--  
请上传实例说明
--  作者：YDS
--  发布时间：2022/9/22 11:53:00
--  
图片点击可在新窗口打开查看

#DataColChanged代码

If e.DataCol.Name = "A" Or e.DataCol.Name = "B" Then
    If e.DataRow.IsNull("A") Or e.DataRow.IsNull("B") Then
        e.DataRow("D") = Nothing
    Else
        e.DataRow("D") = Eval(e.DataRow("C"), e.DataRow)
    End If
End If
[此贴子已经被作者于2022/9/22 11:55:20编辑过]