主题：自动更新对应公司货号、报价记录

各位老师，

请教一下如何实现下列功能（已经根据“客户货号”作了关联):

（1）报价表的"公司货号"列自动从“货号”表生成

（2）点击货号表任意一行，能自动生成该公司货号对应的所有报价(注意不是客户货号对应)，并按报价日期从大到小排序

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

点击浏览该文件:管理项目1.foxdb

1.首先把报价表的公司货号字段类型改为字符型；

2.第一个问题，在报价表的表属性datacolchanged中设置代码：
If e.DataCol.name = "客户货号" Then
Dim dr As DataRow = DataTables("货号").find("客户货号 = '"& e.DataRow("客户货号") &"'")
    If dr IsNot Nothing Then
        e.DataRow("公司货号") = dr("公司货号")
    End If
Next

3.第二个问题，抱歉，不是很理解。

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

点击浏览该文件:管理项目1.foxdb

试了一下，还是没有自动更新，代码出错了

对于第二个问题，以选中货号表第一行为例，要在关联出来的表中实现下面的效果：

公司货号	客户货号	报价	报价日期
A1	D1	0.1	2013/1/6
A1	C1	0.1	2013/1/1

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

点击浏览该文件:管理项目1.foxdb

排序弄好了..没有报错啊.

此主题相关图片如下：qq截图20130409153200.png

谢谢！  
还有对于第1个问题：假如没有找到对应点，能不能自动删除原有的数据?

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

点击浏览该文件:管理项目1.foxdb

自动删除没对应数据的行