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


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

主题:求教代码问题

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


加好友 发短信
等级:幼狐 帖子:126 积分:898 威望:0 精华:0 注册:2016/8/2 9:17:00
求教代码问题  发帖心情 Post By:2017/1/10 21:31:00 [显示全部帖子]

我上传了一个实例,就是要评价出营养指数的同时,也评价出达到的类别和超标倍数就超标项目,具体的代码我已经写在实例中,但是还是没有成功,请老师指点,谢谢
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:湖库监测数据统计系统.table


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


加好友 发短信
等级:幼狐 帖子:126 积分:898 威望:0 精华:0 注册:2016/8/2 9:17:00
  发帖心情 Post By:2017/1/10 22:02:00 [显示全部帖子]

谢谢,还有一个问题,如下图,我自己通过代码计算出营养指数,通过指数来判断状态,营养状态栏里自动按如下公式显示如何写代码,指数<30,为"贫营养",指数<=50,为"中营养",指数<=60,"轻度富营养",指数<=70,"中度富营养",指数>70,为"重度富营养"


图片点击可在新窗口打开查看此主题相关图片如下:1.jpg
图片点击可在新窗口打开查看

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


加好友 发短信
等级:幼狐 帖子:126 积分:898 威望:0 精华:0 注册:2016/8/2 9:17:00
  发帖心情 Post By:2017/1/10 22:28:00 [显示全部帖子]

就是也要显示指数,同时也根据指数显示对应的营养状态,谢谢,如何编写代码?

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


加好友 发短信
等级:幼狐 帖子:126 积分:898 威望:0 精华:0 注册:2016/8/2 9:17:00
  发帖心情 Post By:2017/1/10 22:38:00 [显示全部帖子]

请问如何有代码计算,就差这一个空了,谢谢,我把实例传上来了

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:湖库监测数据统计系统.table


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


加好友 发短信
等级:幼狐 帖子:126 积分:898 威望:0 精华:0 注册:2016/8/2 9:17:00
  发帖心情 Post By:2017/1/10 22:43:00 [显示全部帖子]

图片点击可在新窗口打开查看我都是依照葫芦画瓢的

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


加好友 发短信
等级:幼狐 帖子:126 积分:898 威望:0 精华:0 注册:2016/8/2 9:17:00
  发帖心情 Post By:2017/1/10 23:19:00 [显示全部帖子]

If e.DataCol.Name.EndsWith("L") Then
    If e.newvalue > "" Then
        Dim cname As String = e.DataCol.name.Replace("L", "")
        If e.DataTable.DataCols.Contains(cname) Then
            e.DataRow(cname) = val(e.NewValue)
        End If
        cname = e.DataCol.name.Replace("L", "LN")
        If e.DataTable.DataCols.Contains(cname) Then
            e.DataRow(cname) = Math.Log(val(e.NewValue), Math.E)
        End If
    End If
End If
Select Case e.DataCol.Name 
Case "高锰酸盐指数" ,"氨氮","总磷"
If e.DataRow.IsNull("高锰酸盐指数")   OrElse e.DataRow.IsNull("氨氮") OrElse e.DataRow.IsNull("总磷") Then Return
        Dim dic As new Dictionary(of String, Double())
        dic.Add("高锰酸盐指数", new Double() {4,6,10,15,999})
        dic.Add("氨氮", new Double() {0.5,1,1.5,2,999})
        dic.Add("总磷", new Double() {0.025,0.05,0.1,0.2,999})
        Dim s As String = ""
        Dim n As String = ""
        Dim max As Double = 0
        Dim bz As Integer = e.DataRow("规划类别数值")
        If bz >= 2 Then
            For Each key As String In dic.Keys
                Dim ary() As Double = dic(key)
                For i As Integer = 0 To ary.length - 1
                    If e.DataRow(key) <= ary(i) Then
                        If i+2 > max Then
                            max = i+2
                        End If
                        If i+2 > bz Then
                            s = s & "," & key & "(" & e.DataRow(key) & ")"
                            n = n & "," & format((e.DataRow(key)-ary(bz-2)) / ary(bz-2), "0.##")
                        End If
                        Exit For
                    End If
                Next
Next
          End If
       
        e.DataRow("超标项目") = s.trim(",")
        e.DataRow("超标倍数") = n.trim(",")
        Dim ary1() As String = {"", "", "Ⅱ类", "Ⅲ类", "Ⅳ类", "Ⅴ类", "劣Ⅴ类"}
        e.DataRow("实测类别数值") = max
        e.DataRow("实测类别") = ary1(max)
    Case "水库名称"
        Dim fdr As DataRow = DataTables("名称类别").find("名称 = '" & e.DataRow("水库名称") & "'")
        If fdr IsNot Nothing Then
            Dim ary() As String = {"", "", "Ⅱ类", "Ⅲ类", "Ⅳ类", "Ⅴ类", "劣Ⅴ类"}
            e.DataRow("规划类别数值") = fdr("类别")
            e.DataRow("规划类别") = ary(fdr("类别"))
        End If
 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"))    
        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
End Select
[此贴子已经被作者于2017/1/10 23:23:04编辑过]

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


加好友 发短信
等级:幼狐 帖子:126 积分:898 威望:0 精华:0 注册:2016/8/2 9:17:00
  发帖心情 Post By:2017/1/10 23:20:00 [显示全部帖子]

老师,我按上面的改了,但是没有出来结果,列也该了,您帮忙看一下

 


 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:湖库监测数据统计系统.table

[此贴子已经被作者于2017/1/10 23:22:32编辑过]

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


加好友 发短信
等级:幼狐 帖子:126 积分:898 威望:0 精华:0 注册:2016/8/2 9:17:00
  发帖心情 Post By:2017/1/11 8:37:00 [显示全部帖子]

谢谢老师!图片点击可在新窗口打开查看


 回到顶部