在订单表中的表事件

DataColChanged

If e.DataCol.Name = "是否" AndAlso e.DataRow("是否") = True Then
    Dim nma() As String = {"单价","日期"} \'A表数据来源列
    Dim nmb() As String = {"单价","日期"} \'B表数据接收列
    Dim dr As DataRow = DataTables("新表").AddNew
    For i As Integer = 0 To nma.Length - 1
        dr(nmb(i)) = e.DataRow(nma(i))
    Next
End If

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

点击浏览该文件:多表查询.foxdb

想把最早的时间这一行复制到“新表”最早时间这一行的相关列中

把最晚的时间这一行，复制到“新表”最新时间这一行的相关列中

上面的代码如何改

实例传上，请老师帮助

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

点击浏览该文件:多表查询.foxdb

含数据库

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

点击浏览该文件:管理项目2.rar

参考代码

If e.DataCol.Name = "是否" Then
    If e.DataRow("是否") = True Then
        Dim fdr1 As DataRow = DataTables("新表").find("产品id = \'" & e.DataRow("产品id") & "\' and 起始单价对比 = \'最早\'")
        Dim fdr2 As DataRow = DataTables("新表").find("产品id = \'" & e.DataRow("产品id") & "\' and 起始单价对比 = \'最晚\'")
        If fdr1 Is Nothing Then
            fdr1 = DataTables("新表").AddNew
            fdr1("产品id") = e.DataRow("产品id")
            fdr1("起始单价对比") = "最早"
        End If
        If fdr2 Is Nothing Then
            fdr2 = DataTables("新表").AddNew
            fdr2("产品id") = e.DataRow("产品id")
            fdr2("起始单价对比") = "最晚"
        End If
        Dim dr1 = e.DataTable.Find("产品id = \'" & e.DataRow("产品id") & "\'", "日期")
        Dim dr2 = e.DataTable.Find("产品id = \'" & e.DataRow("产品id") & "\'", "日期 desc")
        If dr1 IsNot Nothing Then
            fdr1("日期") = dr1("日期")
            fdr1("单价") = dr1("单价")
            fdr2("日期") = dr2("日期")
            fdr2("单价") = dr2("单价")
        End If
    Else
        DataTables("新表").deletefor("产品id = \'" & e.DataRow("产品id") & "\'")

    End If
End If

改成

        Dim dr1 = e.DataTable.Find("产品id = \'" & e.DataRow("产品id") & "\' and 日期 is not null", "日期")
        Dim dr2 = e.DataTable.Find("产品id = \'" & e.DataRow("产品id") & "\' and 日期 is not null", "日期 desc")