[求助]关于日期与价格关系问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]关于日期与价格关系问题

共有4338人关注过本帖树形打印复制链接主题：[求助]关于日期与价格关系问题

jlccrtl

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：200 积分：1414 威望：0 精华：0 注册：2014/10/7 21:19:00

[求助]关于日期与价格关系问题 发帖心情

Post By：2015/7/22 11:05:00 [只看该作者]

表1

日期	产品编号	数量	价格
2010-9-30	A	50
2010-9-30	B	40

表2

日期	产品编号	价格
2009-5-10	A	3
2010-3-5	A	4
2010-9-1	A	5

如何让表1里面的价格显示

表2最近一次的价格呢如果没有则返回 “空”或“0” 都可以

也就是让表1第一行价格为5，第二行价格为 “空”或“0”

求高手指点

（如果表2中同一个日期有两个不同的价格的话取较高的价格）

[此贴子已经被作者于2015/7/22 11:20:53编辑过]

大红袍

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/7/22 11:30:00 [只看该作者]

以后发帖子，请做具体例子发上来，不要只贴图。

http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=69960&skin=0

jlccrtl

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：200 积分：1414 威望：0 精华：0 注册：2014/10/7 21:19:00

[求助]关于父表与多个子表引用字符更新问题 发帖心情

Post By：2015/7/22 13:00:00 [只看该作者]

上传了一个例子

产品明细表中的协议价格要从价格清单表中按照日期最新索引

这两个我都看了但是具体这两个应该怎样融合呢？

http://www.foxtable.com/help/index.html?n=0396.htm

http://www.foxtable.com/help/index.html?n=1451.htm

下载信息 [文件大小：下载次数： ]
点击浏览该文件:举例.foxdb

大红袍

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/7/22 14:21:00 [只看该作者]

看2楼。

jlccrtl

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：200 积分：1414 威望：0 精华：0 注册：2014/10/7 21:19:00

[求助]关于父表与多个子表引用字符更新问题 发帖心情

Post By：2015/7/22 14:25:00 [只看该作者]

那个例子我仔细的看了那个是子表的数据直接填充到父表里面

我这个是父表有数据的前提然后实现关联有一个日期对比的问题

jlccrtl

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：200 积分：1414 威望：0 精华：0 注册：2014/10/7 21:19:00

[求助]关于父表与多个子表引用字符更新问题 发帖心情

Post By：2015/7/22 14:26:00 [只看该作者]

两个表格之前用是否用建立关联

如果建立关联，那父表 “产品明细”表中的协议价格如何能按照日期

取到子表“价格清单”里面的父表日期之前最近一次日期的价格呢？？？

大红袍

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/7/22 14:27:00 [只看该作者]

datacolChanged 事件

If e.DataCol.Name = "物料号" Then
    Dim fdr As DataRow = DataTables("价格清单").Find("物料号 = '" & e.DataRow("物料号") & "'", "文件日期 desc")
    If fdr IsNot Nothing Then
        e.DataRow("协议价格") = fdr("协议价格")
    End If
End If