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

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

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

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

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

惭愧，手误