主题：[求助]跨表取同项目最近一天的所有项目内容

 例如，表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