主题：[求助]根据内容自动记录单价

Dim fdr As DataRow = DataTables("运费设置").Find("出库单位 = '" & e.DataRow("出库单位") & "'")

If fdr IsNot Nothing Then
    If DataTables("运费设置").DataCols.Contains(e.DataRow("入库单位"))
        e.DataRow("单价") = fdr(e.DataRow("入库单位"))
    Else
        e.DataRow("单价") = Nothing
    End If
Else
    e.DataRow("单价") = Nothing
End If

2个表，一个供销明细，一个运费设置

目的：《供销明细表》单价列内容 根据《运费设置表》单价列自动填入

另外需要解决的问题：

1、2015-01-01<=出库日期<=入库日期<=交piao日期，日期内容错误则提示

2、供销明细每次登录只加载最近2个月的数据

 1、自己调整一下

If e.DataCol.name = "出库日期" AndAlso e.newvalue <> Nothing Then
    If e.Newvalue < e.DataRow("入库日期") Then
        msgbox(1)
    Else If e.Newvalue >= new Date(Date.Today.Year, 1, 1)
        msgbox(2)
    End If
Else If e.DataCol.Name = "入库日期" AndAlso e.newvalue <> Nothing Then
    If e.newvalue > e.DataRow("出库日期") Then
        msgbox(3)
    Else If e.newvalue < e.DataRow("交piao日期") Then
        msgbox(4)
    End If
End If

2、

DataTables("供销明细").LoadFilter = "入库日期 >= #" & Date.Today.AddMonths(-2) & "#"
DataTables("供销明细").Load