专家坐堂-[求助]跨表取同项目最近一天的所有项目内容Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]跨表取同项目最近一天的所有项目内容  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=152997)

--  作者：wflqf
--  发布时间：2020/7/28 14:07:00
--  [求助]跨表取同项目最近一天的所有项目内容

例如，表B中第一列2999，取值表A第一列2999最后一天所有的项目的内容
For Each s As String In DataTables("表A").GetValues("第一列")
    Dim ndr As DataRow = DataTables("表B").Find("第一列 = \'" & s & "\'","第三列 Desc")
    If ndr Is Nothing Then
        ndr = DataTables("表B").AddNew
    End If
    ndr("第一列") = s
    ndr("第二列") = DataTables("表A").GetComboListString("第二列", "第一列 = \'" & s & "\'").replace("|", ";")
Next
以上代码表B第一列总是取值表A对应项目的所有的第二列内容，如何修改取最近一天的第二列内容
下载信息  [文件大小：   下载次数： ]
点击浏览该文件:管理项目2.foxdb

--  作者：有点蓝
--  发布时间：2020/7/28 14:16:00
--

For Each s As String In DataTables("表A").GetValues("第一列")
Dim ndr As DataRow = DataTables("表B").Find("第一列 = \'" & s & "\'","第三列 Desc")
If ndr Is Nothing Then
ndr = DataTables("表B").AddNew
ndr("第一列") = s
End If
Dim d As Date = DataTables("表A").Compute("max(第三列)", "第一列 = \'" & s & "\'")
ndr("第二列") = DataTables("表A").GetComboListString("第二列", "第一列 = \'" & s & "\' and 第三列=#" & d & "#").replace("|", ";")
Next

--  作者：wflqf
--  发布时间：2020/7/28 14:19:00
--