Dim filter As String = "收款日期='" & e.DataRow("收款日期") & "' and 收据fa piao号='" & e.DataRow("收据fa piao号") & "' and 经手人='" & e.DataRow("经手人") & "' And 交款单位='" & e.DataRow("交款单位") & "' and 交款方式='" & e.DataRow("交款方式") & "'"