以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  用代码生成查询表后的列值环比计算问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=25165)
--  作者：狐狸爸爸
--  发布时间：2012/11/2 8:47:00
--  

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

 

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