1、新建一个表，然后填充数据

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

2、DataColChanging事件

If e.DataCol.Name = "价格" AndAlso e.NewValue <> Nothing Then

    e.newValue = e.newValue * 2

End If

3、不需要每天新建一个表，你每天把蔬菜表的内容填充到价格表来就行了（填充参考1）

然后，在DataRowAdded可以写代码

e.DataRow("发布时间") = Date.Today

用代码来填充，指定排序列

Dim Cols1() As String = {"来源列一","来源列二","来源列三"}
Dim Cols2() As String = {"接收列一","接收列二","接收列三"}
For Each dr1 As DataRow In DataTables("表A").Select("", "_Identify")
    Dim dr2 As DataRow = DataTables("表B").AddNew()
    For i As Integer = 0 To Cols1.Length -1
        dr2(Cols2(i)) = dr1(Cols1(i))
    Next
Next

DataColChanged事件

Select Case e.DataCol.Name
    Case "价格"
        Dim dr As DataRow = DataTables("表A").Find("获取昨日的价格的条件")
        If dr IsNot Nothing Then
            If e.NewValue > dr("价格") Then
                e.DataRow("升降") = "↑"
            Else
                \'其它情况
            End If
        End If
End Select

然后在drawcell设置一下单元格的颜色

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

1、填充代码

Dim Cols1() As String = {"来源列一","来源列二","来源列三"}
Dim Cols2() As String = {"接收列一","接收列二","接收列三"}
For Each dr1 As DataRow In DataTables("表A").Select("", "_Identify desc")
    Dim dr2 As Row = Tables("表B").AddNew()
    dr2.Move(0)
    For i As Integer = 0 To Cols1.Length -1
        dr2(Cols2(i)) = dr1(Cols1(i))
    Next
Next

2、升降的效果，datacolchanged事件

Select Case e.DataCol.Name
    Case "市斤", "发布时间"
        Dim dr As DataRow = DataTables("表A").Find("发布时间 < #" & e.DataRow("发布时间") & "#", "发布时间 desc")
        If dr IsNot Nothing Then
            If e.DataRow("市斤") > dr("市斤") Then
                e.DataRow("升降") = "↑"
            Else
                e.DataRow("升降") = "降"
            End If
        Else
            e.DataRow("升降") = "-"
        End If
End Select