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")
Next
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")
Next
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)
Next
dr("均值") = Nothing
lsts.sort
lsts.Reverse
dr = DataTables("查询表1").AddNew
For i As Integer = 1 To 14
dr("培养皿_" & i ) = lsts(i-1)
Next
dr("培养基编号") = "温落比"
Tables("查询表1").AutoSizeCols
MainTable = Tables("查询表1")