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

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

点击浏览该文件:管理项目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

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

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

惭愧，手误