主题：如何设置复杂的表达式

只能用代码做，找出样品对应的行，逐个比较排除最高和最低，剩下的进行计算平均值

Dim strs As List(of String) = CurrentTable.DataTable.GetValues("样品编号")
For Each str As String In strs
    Dim drs As List(of DataRow) = CurrentTable.DataTable.Select("样品编号='" & str & "'","测量值 desc")
    Dim 平均值 As Double = ( drs(1)("测量值") + drs(2)("测量值") + drs(3)("测量值") ) /3
    Dim dd  As List(of DataRow) = CurrentTable.DataTable.Select("样品编号='" & str & "'","_sortkey")
    dd(2)("平均值") = 平均值
Next

谢谢老师！