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

 参考例子 http://www.foxtable.com/help/topics/1459.htm

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

 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