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

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

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

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

这里有找出最近日期的方法，你先看看，尝试自己写一下：

 

http://www.foxtable.com/help/topics/0396.htm

 

 

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

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")("日期")

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

这样，你会容易理解一点：

 

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

Dim dr4 As datarow =  DataTables("明细").Find("产品名称 = '" & dr3("产品名称") & "'","日期 Desc")

惭愧，手误