主题：请教代码的编写

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:收入管理.table

呵呵，其实就是一回事嘛：
 

Dim dr1 As DataRow = e.DataRow

Dim dr2 As DataRow = DataTables("年度收入台账").Find("[年度] = " & (dr1("年度")-1) & " And [月份] = " & dr1("月份"))

If dr2 isNot Nothing Then '如果找到上年同月的行

    dr1("较上年") = dr1("累计完成") - dr2("累计完成")

End If