Foxtable(狐表)用户栏目专家坐堂 → 公式计算


  共有6682人关注过本帖树形打印复制链接

主题:公式计算

帅哥哟,离线,有人找我吗?
liuandwang
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:94 积分:1039 威望:0 精华:0 注册:2018/4/28 23:27:00
公式计算  发帖心情 Post By: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

求代码
输入“公式”后,自动显示“计算结果”

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110743 积分:563641 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/9/22 10:51:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
liuandwang
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:94 积分:1039 威望:0 精华:0 注册:2018/4/28 23:27:00
  发帖心情 Post By:2022/9/22 11:13:00 [只看该作者]

If e.DataCol.Name = "公式" Then
           e.DataRow("结果") = Eval(e.DataRow("公式"), e.DataRow)
    End If

我用的这个代码,结果显示为0

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110743 积分:563641 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/9/22 11:19:00 [只看该作者]

请上传实例说明

 回到顶部
帅哥,在线噢!
YDS
  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:632 积分:3619 威望:0 精华:0 注册:2011/5/21 18:05:00
  发帖心情 Post By: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编辑过]

 回到顶部