主题：代码出错（已解决）

一段代码，目的是跨表引用相同编号最近日期的“单位”值，其中filter的条件代码应该怎样写，请各位老师帮助指教，谢谢！！

'跨表引用
Select Case e.DataCol.Name
    Case "编号","单位"
        Dim dr As DataRow = e.DataRow
        Dim pr As DataRow
        If dr.IsNull("编号")  Then
            dr("xm") = Nothing
        Else
            Dim filter As String
            filter = "编号 = '" & dr("编号") & "','"日期 Desc"'"
            pr = DataTables("报酬明细").Find(filter)
            If pr IsNot Nothing Then
                dr("单位") = pr("单位")
            End If
        End If
End Select