If tb10.DataTable.DataCols.Contains("平均成绩")=False tb10.DataTable.DataCols.Add("平均成绩",Gettype(Double)) tb10.DataTable.DataCols("平均成绩").SetFormat("0.00")
End If
分班成绩只有一个数据621.5
Dim avg1 As Integer = tb5.Compute("avg(分班成绩)","预分班='" & r("班级") & "'")
但avg1=622.00