主题：用代码生成查询表后的列值环比计算问题

增加一个环比列，命令窗口执行：

Dim drs As List(of DataRow)
drs = DataTables("表A").Select("","鸡群批次,周龄")
For i As Integer = 1 To drs.count - 1
    If drs(i)("鸡群批次") = drs(i-1)("鸡群批次") Then
        drs(i)("环比") = (drs(i)("合格数量") - drs(i-1)("合格数量")) / drs(i-1)("合格数量")
    End If
Next