甜哥帮我一下 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 甜哥帮我一下

共有5990人关注过本帖树形打印复制链接主题：甜哥帮我一下

yfy13338431925

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

加好友

发短信

等级：二尾狐帖子：512 积分：4492 威望：0 精华：0 注册：2018/12/5 23:10:00

Post By：2018/12/10 15:35:00 [只看该作者]

楼上的朋友，我看了你的帖子，我好像目前用不上，收藏了，闲下来好好琢磨，谢你的帮助了

yfy13338431925

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

加好友

发短信

等级：二尾狐帖子：512 积分：4492 威望：0 精华：0 注册：2018/12/5 23:10:00

Post By：2018/12/10 16:27:00 [只看该作者]

甜哥，看了半天没有看懂，平均群落好像算不出来，在论坛里找了一个，有一点近似，也是您帮写的

试着自己弄了一会，还是用不上，目前的情况只是移动列，没有数值

有点甜

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

加好友

发短信

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

Post By：2018/12/10 16:56:00 [只看该作者]

群落计算，参考

Dim t As Table = Tables("脱毒马铃薯培养基15x14正交试验数据")
For Each c As Col In t.Cols
    If c.name.StartsWith("培养皿_") Then
        Dim sum1 As Double = 0
        Dim count1 As Double = 0
        For Each r As Row In t.Rows
            If r("培养基编号") <> "平均群落" AndAlso r("培养基编号") <> "温落比" Then
                sum1 += r(c.name)
                count1 += 1
            End If
        Next
        msgbox(c.name & " " & sum1 / count1)
    End If
Next

把三段代码整合起来即可。看不懂代码，建议先去看视频教程

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=67187

yfy13338431925

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

加好友

发短信

等级：二尾狐帖子：512 积分：4492 威望：0 精华：0 注册：2018/12/5 23:10:00

Post By：2018/12/10 17:28:00 [只看该作者]

从字符串“”到类型“Double”的转换无效。

yfy13338431925

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

加好友

发短信

等级：二尾狐帖子：512 积分：4492 威望：0 精华：0 注册：2018/12/5 23:10:00

Post By：2018/12/10 17:37:00 [只看该作者]

第一段代码可以算出值，但是也的弹出“从字符串“”到类型“Double”的转换无效。”

yfy13338431925

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

加好友

发短信

等级：二尾狐帖子：512 积分：4492 威望：0 精华：0 注册：2018/12/5 23:10:00

Post By：2018/12/10 17:39:00 [只看该作者]

第一段填了一段蓝色部分

If c.name.StartsWith("培养皿_") Then
                sum1 += r(c.name)
                count1 += 1
            End If
        Next
        r("均值") = Math.Round( sum1 / count1,4)
    End If
Next

有点甜

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

加好友

发短信

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

Post By：2018/12/10 17:48:00 [只看该作者]

以下是引用yfy13338431925在2018/12/10 17:28:00的发言：
从字符串“”到类型“Double”的转换无效。

改成

Dim t As Table = Tables("脱毒马铃薯培养基15x14正交试验数据")
For Each c As Col In t.Cols
    If c.name.StartsWith("培养皿_") Then
        Dim sum1 As Double = 0
        Dim count1 As Double = 0
        For Each r As Row In t.Rows
            If r("培养基编号") <> "平均群落" AndAlso r("培养基编号") <> "温落比" Then
                sum1 += val(r(c.name))
                count1 += 1
            End If
        Next
        msgbox(c.name & " " & sum1 / count1)
    End If
Next

y2287958

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

加好友

发短信

等级：狐神帖子：4633 积分：33809 威望：0 精华：0 注册：2008/8/31 22:44:00

Post By：2018/12/10 19:12:00 [只看该作者]

这样，会不会容易理解点？

Dim filter As String = "培养基编号 <> '平均群落' And 培养基编号 <> '温落比' And 培养基编号 <> '显著性描述'"

Dim drs As List(of DataRow) = DataTables("脱毒马铃薯培养基15x14正交试验数据").Select(filter)

Dim dr1 As DataRow = DataTables("脱毒马铃薯培养基15x14正交试验数据").find("培养基编号 = '平均群落'")

Dim dr2 As DataRow = DataTables("脱毒马铃薯培养基15x14正交试验数据").find("培养基编号 = '温落比'")

Dim dr3 As DataRow = DataTables("脱毒马铃薯培养基15x14正交试验数据").find("培养基编号 = '显著性描述'")

Dim dic As new Dictionary(of Integer,String)

Dim 均值合计 As Double

For Each dr As DataRow In drs

Dim ii As Double = 0

For i As Integer = 1 To 14

ii += val(dr("培养皿_" & i))

If dic.ContainsKey(i) = False

dic.Add(i,val(dr("培养皿_" & i)))

Else

dic(i) += val(dr("培养皿_" & i))

End If

dr("均值") = ii/14

均值合计 += ii/14

Dim lst As new List(of Double)

For Each v As Double In dic.Values

lst.Add(均值合计/v)

lst.sort

lst.Reverse

For i As Integer = 1 To 14

dr1("培养皿_" & i) = dic(i)/15

dr2("培养皿_" & i) = round2(lst(i-1),10)

dr3("培养皿_" & i) = iif(lst(i-1) > 0.8,"极显著","")

[此贴子已经被作者于2018/12/10 19:23:14编辑过]

yfy13338431925

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

加好友

发短信

等级：二尾狐帖子：512 积分：4492 威望：0 精华：0 注册：2018/12/5 23:10:00

Post By：2018/12/10 20:08:00 [只看该作者]

甜老师，看懂了大部分，还没完全看懂

平均群落

温落比

显著性描述

这三行表中本没有，是统计过后加上的，（包括均值的那一列）

像前次你写的那样

Dim nr1 As Row = t.addnew
nr1("记录人") = "小结"
nr1("观察日期") = t.Rows.count-1 & "天"

这样可用于小型的正交试验，也可用于大型的正交试验

不过这样已经很好了。太谢谢了！

发一个通讯地址吧，有机会给你寄点茶叶品尝

yfy13338431925

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

加好友

发短信

等级：二尾狐帖子：512 积分：4492 威望：0 精华：0 注册：2018/12/5 23:10:00

Post By：2018/12/10 20:17:00 [只看该作者]

最后写的，很难看懂，前面的都比较好看懂

温落比好像不对应该是

=1.010989

我用excel算的

[此贴子已经被作者于2018/12/10 20:32:27编辑过]

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

总数 61 上一页 1 2 3 4 5 6 7 下一页

主题：甜哥帮我一下