这样写
Dim Filter As String = pr("DK编码") & " = '" & e.DataRow("关联仓库DK编码") & "' And " & pr("账年") & " = '" & e.DataRow("账年") & "' And " & pr("账月") & " = '" & e.DataRow("账月") & "'"