主题：[求助]跨表条件引用的代码（已解决）

一段跨表条件引用的代码，要求将设备折旧表中符合条件的产权单位的值填写到设备借用表产权单位的对应单元格中，此段代码是按照帮助中的代码改写的，帮助中的条件都是字符串数据，而本例的条件中有日期数据，所以代码运行后没有结果，请各位老师帮助看看，代码应该如何修改，谢谢！！

设备借用_DataColChanged

Case "设备编号","借用日期","归还日期"
    Dim dr As DataRow = e.DataRow
    Dim pr As DataRow
    If dr.IsNull("设备编号") OrElse dr.IsNull("借用日期") OrElse dr.IsNull("归还日期") Then
        dr("产权单位") = Nothing
    Else
        Dim filter As String
        filter = "设备编号 = '" & dr("设备编号") & "' And 启用日期 <= '" & dr("借用日期") & "' And 停用日期 >= '" & dr("归还日期") & "'"
        pr = DataTables("设备折旧").Find(filter)
        If pr IsNot Nothing Then
            dr("产权单位") = pr("产权单位")
        End If
    End If

附上项目文件：

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:设备管理.rar