主题：多表内容的提取

有价格表2015、价格表2016、价格表2014~~，这些表的结构完全一样。含零件图号、零件名称、车型、价格等。

现我需要一张汇总表：1、当上述表增加零件图号时，就把新零件图号增加到汇总表，但是不重复。2、通过零件图号导入零件名称、车型。3、不同列导入价格，即第一列的价格来源价格表2014，第一列的价格来源价格表2015，第一列的价格来源价格表2016.如果此图号仅在某一表有价格，那就此列有数据，其他列为空。

能否实现，谢谢

 If e.Row("车型") IsNot "售后"  Then
Select Case e.DataCol.name
 
    Case "零件图号"
        Dim dr As DataRow = DataTables("价格汇总表").Find("零件

图号 = '" & e.OldValue & "'")
        If dr Is Nothing Then
            dr = DataTables("格汇总表").AddNew()
            dr("零件图号") = e.DataRow("零件图号")
            dr("零件名称") = e.DataRow("零件名称")
            dr("车型") = e.DataRow("车型")
        Else
            dr("零件图号") = e.DataRow("零件图号")
        End If
    Case "零件名称","车型"
        Dim dr As DataRow = DataTables("价格汇总表").Find("零件

图号 = '" & e.DataRow("零件图号") & "'")
        If dr IsNot Nothing Then
            dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
        End If
End Select

  增加功能已经具有了，但是还有判断没有实现：

 1、“车型”不是“售后”才执行此程序。

2、汇总表来自多表零件图号一致时，仅增加一行。

2、汇总表来自多表零件图号相同时，仅增加一行不能实现。如图，我希望只显示一行的图号就可以了。

此主题相关图片如下：1.bmp

随便问句：怎么固定按某一列排序显示，每次登陆都变化为按序号去了。

上述程序使这些价格表2015、价格表2016、价格表2014~~，不能录入相同图号了。

目的是使这些非关系的价格表2015、价格表2016、价格表2014~~，主要信息汇总，汇总唯一性是零件图号。但不能限制原表的任何东西。

If e.DataCol.Name = "零件图号" Then
    Dim dr As DataRow
    dr = DataTables("价格表2015").Find("零件图号 = '" &

e.DataRow("零件图号") & "'" )
    If dr IsNot Nothing
        e.DataRow("年2015_A点_供应商简称")= dr("A点_供应商简称")
        e.DataRow("年2015_A点_含税单价")= dr("A点_含税单价_更新

后")
        e.DataRow("年2015_B点_供应商简称")= dr("B点_供应商简称")
        e.DataRow("年2015_B点_含税单价")= dr("B点_含税单价_更新

后")
    End If
End If
If e.DataCol.Name = "零件图号" Then
    Dim dr As DataRow
    dr = DataTables("价格表2016").Find("零件图号 = '" &

e.DataRow("零件图号") & "'" )
    If dr IsNot Nothing
        e.DataRow("年2016_A点_供应商简称")= dr("A点_供应商简称")
        e.DataRow("年2016_A点_含税单价")= dr("A点_含税单价_更新

后")
        e.DataRow("年2016_B点_供应商简称")= dr("B点_供应商简称")
        e.DataRow("年2016_B点_含税单价")= dr("B点_含税单价_更新

后")
    End If
End If

第二、第三个问题没有数据过来。而且希望是同步更新的那种。