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

4.找出最大的温落比，从左向右依次排列，>0.8以上的值，在数字右上角上标**，并在“显著性描述”中填入“极显著”字样。

啥意思？不明白

还有表中的行均值结果好像不准确

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

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

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编辑过]

如果本没有最后三行和最后一列，完全可以通过生成临时表的形式，就更容易操作了

1楼的行均值就不正确，第一行的均值应该是第二行的均值。

难道均值计算逻辑为：第一行的均值是计算第二行的？

给一个正确的数据及结果表

不明白计算公式

18楼的结果没错

这是一种生成临时表的方法，参考一下。

Dim jb As New SQLJoinTableBuilder("查询表1","脱毒马铃薯培养基15x14正交试验数据")

jb.AddCols("培养基编号")

Dim lst As new List(of String)

For i As Integer = 1 To 14

jb.AddCols("Val(培养皿_" & i & ") As 培养皿_" & i)

lst.add("Val(培养皿_" & i & ")/14")

jb.AddCols(String.join("+",lst.ToArray) & " as 均值")

jb.Filter = "培养基编号 not in( '平均群落','温落比','显著性描述')"

Dim jb1 As New SQLJoinTableBuilder("查询表1","脱毒马铃薯培养基15x14正交试验数据")

jb1.AddCols("'平均群落' as 培养基编号")

lst.Clear

For i As Integer = 1 To 14

jb1.AddCols("Sum(Val(培养皿_" & i & "))/15 As 培养皿_" & i)

lst.add("Sum(Val(培养皿_" & i & "))/14")

jb1.AddCols(String.join("+",lst.ToArray) & " as 均值")

jb1.Filter = "培养基编号 not in( '平均群落','温落比','显著性描述')"

jb.Union(jb1)

jb.Build()

Dim dr As DataRow = DataTables("查询表1").DataRows(DataTables("查询表1").DataRows.Count-1)

Dim lsts As new List(of Double)

For i As Integer = 1 To 14

lsts.add((dr("均值")/dr("培养皿_" & i))/15)

dr("均值") = Nothing

lsts.sort

lsts.Reverse

dr = DataTables("查询表1").AddNew

For i As Integer = 1 To 14

dr("培养皿_" & i ) = lsts(i-1)

dr("培养基编号") = "温落比"

Tables("查询表1").AutoSizeCols

MainTable = Tables("查询表1")

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

以下是引用yfy13338431925在2018/12/11 13:43:00的发言：

[此贴子已经被作者于2018/12/11 13:46:08编辑过]

看论坛短信

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

没有看短信的权限

论坛的收件箱

主题：甜哥帮我一下