主题：条件筛选求和

Dim JYHDLC As String = "现流项目 in ('购买原材料商品接受劳务支付的现金','支付的职工薪酬','支付的税费','支付其他与经营活动有关的现金') and 会计年度 = '" & e.DataRow("会计年度") & "' And 期间 = '" & e.DataRow("期间") & "'And 公司名称 = '" & e.DataRow("公司名称") & "'And 会计准则 = '" & e.DataRow("会计准则") & "'   "