主题：甜哥帮我一下

学会循环行，循环列，然后计算，如计算均值

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

那么计算每列的总值，那就循环每一列，然后再循环每一行，即可计算。

最后得到计算结果以后，读取某一行的值，读取某一列的值，计算即可。

要学习一下如何编写代码，并不是每个需求都要别人帮你完成的，别人只能指点你解决某一些难点。编写代码还是要你去完成的。

先学会基础语法吧，看看视频教程 http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=67187

以下是引用yfy13338431925在2018/12/10 14:34:00的发言：

甜哥你好！

温落比大的列，按大小值排在最左边，也是一种排序，温落比>0.8，就在这个数值上边标记**

像这样

此主题相关图片如下：qq图片20181210143310.png

Dim ls As new List(Of String)
Dim dt As Table = Tables("脱毒马铃薯培养基15x14正交试验数据")
Dim r As Row = dt.rows(dt.findrow("培养基编号='温落比'"))
For Each dc As Col In dt.Cols
    If dc.Caption.StartsWith("培养皿_") Then
        ls.add(dc.name)
    End If
Next
Dim ary1(ls.count-1) As Double
Dim ary2 = ls.ToArray
For i As Integer = 0 To ary2.length-1
    ary1(i) = val(r(ary2(i)))
Next
array.sort(ary1, ary2)
For i As Integer = 0 To ary2.length-1
    dt.Cols(ary2(i)).Move(1)
    If val(r(ary2(i))) > 0.8 Then
        r(ary2(i)) = r(ary2(i)).trim("*") & "**"
    End If
Next

群落计算，参考

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

改成

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

参考8楼的代码。你要学会看代码和运用代码啊，不是每一个功能都要别人帮你做好的啊。不然下次、下下次还要依照你的公式帮你计算？

参考代码，细节自己调整

Dim t As Table = Tables("脱毒马铃薯培养基15x14正交试验数据")
t.DataTable.DeleteFor("培养基编号 in ('平均群落', '温落比')")
Dim ary(t.Rows.count-1) As Double
Dim ii As Integer = 0
For Each r As Row In t.Rows
    Dim sum1 As Double = 0
    Dim count1 As Double = 0
    For Each c As Col In t.Cols
        If c.name.StartsWith("培养皿_") Then
            sum1 += val(r(c.name))
            count1 += 1
        End If
    Next
    r("均值") = sum1 / count1
    ary(ii) = sum1 / count1
    ii += 1
Next
Dim nr1 = t.AddNew
nr1("培养基编号") = "平均群落"
Dim nr2 = t.AddNew
nr2("培养基编号") = "温落比"
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
        nr1(c.name) = sum1 / count1
        Dim sum As Double = 0
        For Each a As Double In ary
            sum += a / (sum1 / count1)
        Next
        nr2(c.name) = format(sum / ary.length, "0.0000")
    End If
Next

Dim ls As new List(Of String)
Dim dt As Table = Tables("脱毒马铃薯培养基15x14正交试验数据")
For Each dc As Col In dt.Cols
    If dc.Caption.StartsWith("培养皿_") Then
        ls.add(dc.name)
    End If
Next
Dim ary1(ls.count-1) As Double
Dim ary2 = ls.ToArray
For i As Integer = 0 To ary2.length-1
    ary1(i) = val(nr2(ary2(i)))
Next
array.sort(ary1, ary2)
For i As Integer = 0 To ary2.length-1
    dt.Cols(ary2(i)).Move(1)
    If val(nr2(ary2(i))) > 0.8 Then
        nr2(ary2(i)) = nr2(ary2(i)).trim("*") & "**"
    End If
Next

nr3("培养皿_" & i) = ("极显著")

改成

nr3(ary2(i)) = "极显著"

六尾狐以下的等级，无法在论坛收发短信的。

1、计算27%的行数是多少行。

2、循环每列，循环头部n行、尾部n行，计算得到值。