Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求教代码问题


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

主题：求教代码问题
帅哥，在线噢！
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106753 积分：542966 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/1/10 21:58:00 [显示全部帖子]

    Case "水库名称"
        Dim fdr As DataRow = DataTables("名称类别").find("名称 = '" & e.NewValue & "'")
        If fdr IsNot Nothing Then
            Dim ary() As String = {"", "", "Ⅱ类", "Ⅲ类", "Ⅳ类", "Ⅴ类", "劣Ⅴ类"}
            e.DataRow("规划类别数值") = fdr("类别")
            e.DataRow("规划类别") = ary(fdr("类别"))
        End If
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106753 积分：542966 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/1/10 22:18:00 [显示全部帖子]

指数改成用代码计算，不要表达式，然后在代码中根据指数计算结果设置状态

 回到顶部
帅哥，在线噢！
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106753 积分：542966 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/1/10 22:34:00 [显示全部帖子]

指数列改为数据列，表达式改为用代码计算

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


加好友 发短信
等级：超级版主 帖子：106753 积分：542966 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/1/10 22:41:00 [显示全部帖子]

把表达式的逻辑改为用代码计算都不会么，这么复杂的类别计算都搞出来了

 回到顶部
帅哥，在线噢！
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106753 积分：542966 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/1/10 22:48:00 [显示全部帖子]

    Case "高锰酸盐指数LN","总磷LN","总氮LN]","叶绿素LN","透明度LN"
        Dim jg As Double = 0.1834 * 10 * (0.109 + 2.661 *  e.DataRow("高锰酸盐指数LN")) + 自己补齐其它计算公式
        If jg <30
            e.DataRow("营养状态") ="贫营养"
        ElseIf jg <50
            e.DataRow("营养状态") ="中营养"
        ElseIf ......
        End If
 回到顶部
帅哥，在线噢！
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106753 积分：542966 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/1/11 8:32:00 [显示全部帖子]

    Case "高锰酸盐指数LN","总磷LN","总氮LN","叶绿素LN","透明度LN"
        Dim jg As Double = 0.1834 * 10 * (0.109 + 2.661 *  e.DataRow("高锰酸盐指数LN")) + 0.1879 * 10 * (9.436 + 1.624 *  e.DataRow("总磷LN")) + 0.18 * 10 * (5.453 + 1.694 * e.DataRow("总氮LN")) + 0.2663 * 10 * (2.5 + 1.086 * e.DataRow("叶绿素LN"))+ 0.1834 * 10 * (5.118 - 1.94 * e.DataRow("透明度LN"))
        e.DataRow("营养指数") = jg
        If jg < 30
            e.DataRow("营养状态") = "贫营养"
        ElseIf jg < 50
            e.DataRow("营养状态") = "中营养"
        ElseIf jg < 60
            e.DataRow("营养状态") = "轻度富营养"
        ElseIf jg < 70
            e.DataRow("营养状态") = "中度富营养"
        ElseIf jg > 70
            e.DataRow("营养状态") = "重度富营养"
        End If
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 5 次数据查询