主题：如何在规定的日期范围内执行预定的产品价格

以下是引用lsy在2013-7-6 10:01:00的发言：

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

点击浏览该文件:当前价格.table

If e.DataCol.Name = "价格" OrElse e.DataCol.Name = "生效日期" Then
    If e.DataRow.IsNull("价格") = False AndAlso e.DataRow.IsNull("生效日期") = False Then
        Dim dt As Date = DataTables("价格变动表").Compute("Max(生效日期)","产品编号 = '" & e.DataRow("产品编号") & "'")
        Dim dr As DataRow = DataTables("价格变动表").Find("生效日期 = #" & dt & "#")
        Dim dr1 As DataRow = DataTables("产品表").Find("产品编号 = '" & e.DataRow("产品编号") & "'")
        dr1("当前售价") = dr("价格")
    End If
End If

最大生效日期的啊！呵呵！

以下是引用Bin在2013-7-6 9:43:00的发言：
.

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

点击浏览该文件:事例1.table

For Each dr As DataRow In DataTables("产品表").DataRows
    If dr.IsNull("产品编号")=False Then
        Dim ilist As List(of DataRow) = dr.GetChildRows("价格变动表")
        If ilist IsNot Nothing Then
            For i As Integer=0 To ilist.count-1
                If ilist(i)("生效日期")<=Date.Today Then
                    dr("当前售价")=ilist(i)("价格")
                End If
            Next
        End If
    End If
Next

这个是对的！可是要有两个 If ilist(i)("生效日期")<=Date.Today 呢？