主题：代码请教

Dim Max As Integer
Max = DataTables("某表).Compute("Max(某列)", "条件")
Dim Filter As String = "地区 = '华中'  And [完成时间] Is Not Null And [事件级别] = " & Max & " And 定单号 = '" & dr1("定单号") & "'"

Max = DataTables("某表).Compute("Max(某列)", "条件")
条件是要在代码中设置好?
"条件"能不能设置成为自动选取"某列"的最大值?或最小值两种.

条件是随意组合的，你想怎么计算都行。
最小值用Min计算。
你何不将表设计后，输入数据，给出具体的条件，这样一次搞定既可？

狐爸
这是文件

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

点击浏览该文件:管理项目5.table

在"开始出货日期列"中,要提取子表中"计划出货顺序"最小的出货日期
在"最后完成出货日期列"中.要提取子表中"计划出货顺序"最大的出货日期
子表"计划出货顺序列"中的出货次数是动态的,某张定单可能计划2次出货,可能又是5次出货

DataColChanged事件：

Select Case e.DataCol.Name
    Case "定单号"
        Dim dr1 As DataRow = e.DataRow
        Dim dr2 As DataRow
        Dim Filter As String = "[定单号] = '" & dr1("定单号") & "' And [完成时间] Is Not Null"
        dr2 = DataTables("华中定单完成统计").Find(Filter,"计划出货顺序")
        If dr2 IsNot Nothing Then
            dr1("开始出货时间") = dr2("完成时间")
        End If
        dr2 = DataTables("华中定单完成统计").Find(Filter,"计划出货顺序 Desc")
        If dr2 IsNot Nothing Then
            dr1("最后出货完成时间") = dr2("完成时间")
        End If
End Select

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

点击浏览该文件:管理项目7.table

狐爸
有一点问题
编号001定单总共有5次出货计划
而子表中只有2次出货日期
主表中001号定单的实际出货完成日期应该是空白啊,因为001号定单最后一次出货日期是空,没有日期啊....

出现这个问题，是因为我加入了日期不能为空的条件，你可以删除条件的：

Select Case e.DataCol.Name
    Case "定单号"
        Dim dr1 As DataRow = e.DataRow
        Dim dr2 As DataRow
        Dim Filter As String = "[定单号] = '" & dr1("定单号") & "'"
        dr2 = DataTables("华中定单完成统计").Find(Filter,"计划出货顺序")
        If dr2 Is Nothing Orelse dr2.Isnull("完成时间")  Then
            dr1("开始出货时间") = Nothing
        Else
            dr1("开始出货时间") = dr2("完成时间")
        End If
        dr2 = DataTables("华中定单完成统计").Find(Filter,"计划出货顺序 Desc")
        If dr2 Is Nothing Orelse dr2.Isnull("完成时间")  Then
            dr1("最后出货完成时间") = Nothing
        Else
            dr1("最后出货完成时间") = dr2("完成时间")
        End If
End Select

狐爸非常感谢你
解决问题了
感谢您耐心的教导
51前我会将在您的帮助下完成的作品发上来,您在看看,有没有什么需要简化的代码...
希望你能理解,我是菜鸟