[求助]公式计算判断 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]公式计算判断

共有2770人关注过本帖树形打印复制链接主题：[求助]公式计算判断

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/4/23 17:44:00 [显示全部帖子]

不理解你的意思，报什么错？贴出完整代码。

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/4/24 9:18:00 [显示全部帖子]

Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "d1", "d2", "db", "dbfs"
        Dim d1 = e.DataRow("d1")
        Dim d2 = e.DataRow("d2")
        Dim db = e.DataRow("db")
        Dim dbfs = e.DataRow("dbfs")
        Dim zhk = e.DataRow("zhk")
        Dim fzhk = e.DataRow("fzhk")
        If dr.IsNull("db") Then '如果db为空
            dr("zhk") = Nothing
        Else
            e.DataRow("zhk") = (d2^2-db^2)/(d2^2-d1^2)
        End If
        If dr.IsNull("dbfs") Then '如果dbfs为空
            dr("fzhk") = Nothing
        Else
            e.DataRow("fzhk") = (dbfs^2-d1^2)/(d2^2-d1^2)
        End If
End Select

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/4/24 10:49:00 [显示全部帖子]

不理解你的意思，不明白你要做什么。

如果不想重复触发datacolchanged事件，看看 http://www.foxtable.com/webhelp/scr/2218.htm

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/4/24 12:17:00 [显示全部帖子]

如果测试有问题，做一个具体例子发上来，说明测试步骤以及需要做到的效果。

下一主题 >> << 上一主题

主题：[求助]公式计算判断