主题：条件筛选求和

想以下形式作为条件，实现求和，提示错误，可以这样吗？不使用循环。

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