主题：组合条件表达

确定计算条件时，有部分条件是相同，希望通过组合减少代码量，确定如下：该怎么修改？

Dim filter As String = "年度 = '"& e.datarow("年度") & "' and 期间 = '"& e.datarow("期间") & "'and 单位名称 = '"& e.datarow("单位名称") & "'and  明细 = '是' and 会计准则 = '"& e.datarow("会计准则") & "'"
Select Case e.DataCol.name
    Case "资产项目"
        msgbox("filter And 资产项目 = '货币资金'")
        e.DataTable.find(filter And "资产项目 = '货币资金'")("资产期初金额") = DataTables("三栏明细").Compute("sum(期初金额)","filter And and 科目编号 in ('1001','1002') ")
       
End Select

上述代码提示错误如下：

.NET Framework 版本：2.0.50727.8689
Foxtable 版本：2017.10.26.1
错误所在事件：表，资产负债，DataColChanged
详细错误信息：
调用的目标发生了异常。
从字符串“年度 = '2015' and 期间 = '01'and 单位名”到类型“Long”的转换无效。
输入字符串的格式不正确。

以下代码怎么错误了呀？提示错误

Dim Pzdr As DataRow = DataTables("凭证明细").sqlfind(filter " And 贷方金额 = '" & e.DataRow("集资情况_合同金额") & "'")