主题：[求助]

1、在afterOpenProject加入下面代码

DataTables("出库").LoadFilter = "状态 = true"
DataTables("出库").Load
DataTables("区间运价").LoadFilter = "状态 = true"
DataTables("区间运价").Load

2、不知道你的逻辑是什么，参考 http://www.foxtable.com/help/topics/1459.htm

没效果是什么意思啊，启动之后，只加载 对应表勾选的数据啊

3、在Datacolchanged事件，加入代码

If e.DataCol.Name = "入库日期" OrElse e.DataCol.Name = "交piao日期" Then
    If e.DataRow.IsNull("入库日期") OrElse e.DataRow.IsNull("交piao日期") Then
        e.DataRow("延迟时间") = Nothing
    Else
        Dim sp As TimeSpan = e.DataRow("交piao日期") - e.DataRow("入库日期")
        e.DataRow("延迟时间") = sp.TotalDays
    End If
End If

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

问题一：去掉原来的加载代码，在maintablechanged事件加入代码

If MainTable.Name = "供销明细" Then
    Dim tb As New DropTreeBuilder
    tb.SourceTable = DataTables("出库") '指定目录树表
    tb.TreeCols = "出库单位|供应商" '指定用于生成目录树的列
    tb.SourceCols = "出库单位|供应商" '指定数据来源列
    tb.ReceiveCols = "出库单位|供应商" '指定数据接收列
    tb.TreeFilter = "状态 = true"
    Tables("供销明细").Cols("出库单位").DropTree = tb.Build()
End If

问题三：取哪个表的运费，条件是什么。

之前给你的 LoadFilter 和 Load 的代码，去掉

DatacolChanged，代码

If e.DataCol.Name = "入库日期" OrElse e.DataCol.Name = "交piao日期" Then
    If e.DataRow.IsNull("入库日期") OrElse e.DataRow.IsNull("交piao日期") Then
        e.DataRow("延迟时间") = Nothing
    Else
        Dim sp As TimeSpan = e.DataRow("交piao日期") - e.DataRow("入库日期")
        e.DataRow("延迟时间") = sp.TotalDays
    End If
Else If e.DataCol.Name = "出库单位" Then
    Dim fdr As DataRow = DataTables("区间运价").Find("出库单位 = '" & e.DataRow("出库单位") & "'")
    If fdr IsNot Nothing Then
        e.DataRow("运费单价") = fdr("运费单价")
    Else
        e.DataRow("运费单价") = Nothing
    End If
End If

逻辑是什么？根据什么条件查询数据？