主题：关联表 中的数据整理

我在设计一个关联表数据整理的过程中遇到一个问题。

 

请见下图：

 

此主题相关图片如下：4.jpg

我希望可以将子表中整理出来的询价数据按以下方式体现在父表“产品”

1.）按最近一次的询价结果（将询价时间|询价工厂|询价价格）体现在父表对应列中；

2.）或者，按最优价格体现。

 

我尝试用

1.）聚合函数MAX 来找出最近时间（但是询价时间列不可以是数值属性）

2.）或者就是用datacolchange 代码输入，但是我代码编了几次编不下去。

 

请教该怎么处理？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:test 1.table

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目24.table

谢谢CZY 代码。

If e.DataCol.name = "货号" Then
    If e.DataRow.IsNull("货号") = False Then
        Dim dr As DataRow = DataTables("询价").Find("货号 = '" & e.DataRow("货号") & "'","询价日期 Desc")
        If dr IsNot Nothing Then
            e.DataRow("询价工厂") = dr("询价工厂")
            e.DataRow("询价价格") = dr("询价价格")
            e.DataRow("询价时间") = dr("询价日期")
        Else
            e.DataRow("询价工厂") = Nothing
            e.DataRow("询价价格") = Nothing
            e.DataRow("询价时间") = Nothing
        End If
    End If
End If

 

但是“产品”表格上，询价时间列是空的，可否指导如何让询价时间列也被填充呢。

我测试时间没有空，你实际输入货号数据看看。

我明白了，我重新输入一下，发现日期数据了。

狐爸，还有一个问题，实际使用中，也许我会先输入“货号”之类的数据， 这样一来，

 

1.) 后面询价和订单整理后的数据就没有办法”自动“填充到产品表格对应位置中。

2.) 如果询价 和 订单中的内容更改后，更改后的数据也没有办法 ”自动“更新到产品表格对应位置中。

 

 

解决这个办法只有一个： 就是把这一行的内容全部清空，重新输入货号，才可以得到更新后的数值。

 

但这么做，在实际使用时会带来错误的结果，毕竟实际使用中不可以全部清空再填货号的。

 

我还没有设计到窗口的地步，想问是否有”刷新“，代码是 e.form.refresh() 是否对？可以解决以上问题吗？

此主题相关图片如下：4.jpg

你可以看看：

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

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

 

第一节教你如何引用数据，第二节教你如何自动更新

 

最好是先按顺序学习帮助文件。

 

 

看帮助一定要按顺序，头一两遍可以不求甚解，第三遍开始要将每个例子实际操作演练一遍，不明白的就上论坛求助。三遍之后才开始做系统，遇到问题在帮助找答案，找不到的在论坛提问。
此外一定要先掌握《使用指南》，然后再看《开发指南》

这几章看过了，看来我还需要再多看几遍。

狐爸，对不起，我已经认真看了你推荐的2篇，还是不能解决我的问题。

 

我的问题是：

1.) ”询价" "订单" 表中的任何变动，都可以自动体现在"产品" 表的指定位置里；

    （这个自动的意思是：产品表中不需要再重新输入货号，即使原来有的记录也可以随着另外两个表的更改而自动更改）

2.) 我现在自己编的代码是：

     Select Case e.DataCol.Name
    Case "询价工厂""询价价格""询价时间"
        Dim Filter As String = "[货号] = '" & e.DataRow("货号") & "'询价日期 DESC"
        Dim drs As List(Of DataRow) = DataTables("询价").Select(Filter)
        For Each dr As DataRow In drs
            dr(e.DataCol.Name) = e.NewValue
        Next
    Case "订单日期""订单数量""订单单价""订单生产工厂"
        Dim Filter As String = "[货号] = '" & e.DataRow("货号") & "'订单日期 DESC"
        Dim drs As List(Of DataRow) = DataTables("订单").Select(Filter)
        For Each dr As DataRow In drs
            dr(e.DataCol.Name) = e.NewValue
        Next
End Select

    这个代码没有任何作用，请问错在哪里？

 

谢谢指教。

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:120901 test.table

不要写代码了，既然要即时而且同步更新，就用关联和表达式吧：

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目76.table