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

一段代码，目的是跨表引用相同编号最近日期的“单位”值，其中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

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

谢谢狐爸老师的回复，好像还有一点问题，请狐爸老师指教，谢谢！！

 

 

此主题相关图片如下：r.png

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

代码效果完美，谢谢狐爸老师！！