明细表如下图

此主题相关图片如下：明细.jpg


此主题相关图片如下：出库单位.jpg


此主题相关图片如下：运价.jpg

要求实现如下功能：

1：出库单位和供应商内容较多，且经常变更，想通过状态选择方式进行动态加载，请问如何书写代码；

2：运费价格想通过判断出库单位和入库单位自动录入，并可以通过状态选择方式进行控制；请问如何书写代码；

3：延迟时间=交票日期-入库日期，求整数天数，请问如何书写代码；

谢谢田田老师，速度这么快

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 = "交票日期" Then
    If e.DataRow.IsNull("入库日期") OrElse e.DataRow.IsNull("交票日期") Then
        e.DataRow("延迟时间") = Nothing
    Else
        Dim sp As TimeSpan = e.DataRow("交票日期") - e.DataRow("入库日期")
        e.DataRow("延迟时间") = sp.TotalDays
    End If
End If

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

1、有效果了，又出现一个问题，出库里面也只有状态为选中的那个数据了，其他的不见了

2、运费价格没有自动填写进去