以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  用代码生成查询表后的列值环比计算问题  (http://www.foxtable.com/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