主题：请教这个代码如何写呢

根据库存里的产品，从明细表里找出离当前日期最近的那个时间填进去，谢谢

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

点击浏览该文件:管理项目1(3).table

 

看下错在那里，提示转换无效

Select Case e.DataCol.name
    Case "产品名称"
        Dim dr3 As DataRow = e.DataRow
        Dim dt3 As DataTable =DataTables("明细")
       If dr3.IsNull("产品名称") = False  Then
        dr3("最近日期") = DataTables("明细").Find("产品名称 = '" & dr3("产品名称") & "'","日期")
   End If
End Select

dr3("最近日期") = DataTables("明细").Find("产品名称 = '" & dr3("产品名称") & "'","日期 Desc")("日期")
这个如何理解呢