Dim dr As DataRow
Dim c() As Integer={0,0,0,0}
dr = DataTables("项目补助信息").Find("名称 = '" & e.Row("项目名称") & "'")
c(0)+=e.Row("项目_1") * dr("驻外补贴")
c(1)+=e.Row("项目_1") * dr("餐补")
c(2)+=e.Row("项目_1") * dr("通讯")/30
c(3)+=e.Row("项目_1") * dr("交通")/30
dr = DataTables("项目补助信息").Find("名称 = '" & e.Row("项目名称2") & "'")
c(0)+=e.Row("项目_2") * dr("驻外补贴")
c(1)+=e.Row("项目_2") * dr("餐补")
c(2)+=e.Row("项目_2") * dr("通讯")/30
c(3)+=e.Row("项目_2") * dr("交通")/30
dr = DataTables("项目补助信息").Find("名称 = '" & e.Row("项目名称3") & "'")
c(0)+=e.Row("项目_3") * dr("驻外补贴")
c(1)+=e.Row("项目_3") * dr("餐补")
c(2)+=e.Row("项目_3") * dr("通讯")/30
c(3)+=e.Row("项目_3") * dr("交通")/30
e.Row("合计_驻外补贴") = c(0)
e.Row("合计_餐补") = c(1)
e.Row("合计_通讯") =c(2)
e.Row("合计_交通") = c(3)