Foxtable(狐表)用户栏目专家坐堂 → [求助]跨表取同项目最近一天的所有项目内容


  共有3906人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
wflqf
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:127 积分:1680 威望:0 精华:0 注册:2020/4/19 19:49:00
[求助]跨表取同项目最近一天的所有项目内容  发帖心情 Post By: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



 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111372 积分:566924 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:127 积分:1680 威望:0 精华:0 注册:2020/4/19 19:49:00
  发帖心情 Post By:2020/7/28 14:19:00 [只看该作者]

图片点击可在新窗口打开查看 

 回到顶部