Dim r As Row
For i As Integer = 0 To tb.Rows.Count(True) - 1
r = tb.Rows(i, True)
If r.IsGroup Then '如果是分组行
Dim f As String = ""
Dim v As String = ""
Select Case r.Level
Case 0
f = "sex='" & r("sex") & "'"
v = "称重只数：" & tb.Compute("count(weight)", f) & ";"
v &= "平均体重：" & tb.Compute("Avg(weight)", f) & ";"
r("sex") = r("sex") & "鸡-" & v
Case 1
f = "sex='" & tb.Rows(i + 1, True)("sex") & "' and type='" & r("sex").Trim("：") & "'" '
Output.Show(f)
v = "称重只数：" & tb.Compute("count(weight)", f) & ";"
v &= "平均体重：" & tb.Compute("Avg(weight)", f) & ";"
r("sex") = r("sex") & "鸡-" & v
Case 2
End Select
End If
Next
加好友 
发短信
Post By：2023/6/16 15:24:00 [显示全部帖子]
