主题：甜哥帮我一下

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目6(1).zip

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

看31楼

值您已经算出来了，就是没有对应到列上，最后一步就是把温落差的列从大到小从左向右排序，

18楼的结果没错

 

参考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

 

高手好多啊，谢谢大家帮助