主题：[求助]

 做一个项目，做一张表，上传上来。说明要在哪个地方实现什么功能。

 或者自己参考帮助文档来做。用find函数查出最早和最晚的日期，再相减，即可

 

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

 

 呃，未见项目。

不清楚你要做什么计算差值，这样做

 

For Each n As String In DataTables("表A").GetValues("第一列", "第一列 is not null")
    Dim dr1 As DataRow = DataTables("表A").Find("第一列 = '" & n & "'", "第二列")
    Dim dr2 As DataRow = DataTables("表A").Find("第一列 = '" & n & "'", "第二列 desc")
    msgbox(n & " : " & math.Abs(dr2("第五列") - dr1("第五列")))
Next

For Each n As String In DataTables("表A").GetValues("第一列", "第一列 is not null")
    Dim dr1 As DataRow = DataTables("表A").Find("第一列 = '" & n & "'", "第二列")
    Dim dr2 As DataRow = DataTables("表A").Find("第一列 = '" & n & "'", "第二列 desc")
    Dim fdr As DataRow = DataTables("表D").Find("第一列 = '" & n & "'")
    If fdr Is Nothing Then
        fdr = DataTables("表D").AddNew
        fdr("第一列") = n
    End If
    fdr("第二列") = math.Abs(dr2("第五列") - dr1("第五列"))
    fdr("第三列") = math.Abs(dr2("第六列") - dr1("第六列"))
Next