主题：[求助] Excel文件合并出错

 merger有bug，你要换一种方法合并数据的。

http://www.foxtable.com/webhelp/scr/2334.htm

sqlfind，是对于已经保存的数据进行查找的（你新增的数据没保存）

你可以先用find查找，如果找不到的话，再用sqlfind查找

Dim dr As DataRow = dt3.Find("规格='" & r("Comment") & "' And 封装 ='" & r("Footprint") & "'")

If dr Is Nothing Then

    dr = dt3.SQLFind("规格='" & r("Comment") & "' And 封装 ='" & r("Footprint") & "'")

End If

Dim tb As Table = Tables("PCBA-BOM_Table1")
Dim dt As DataTable = DataTables(Vars("TbName"))

Dim dt2 As DataTable = DataTables("物料表")
Dim dt3 As DataTable = DataTables("对应表")

DataTables("对应表").Save()
DataTables("对应表").Load() '保存对应表的数据

For i As Integer = 0 To tb.Rows.Count - 1
    Dim r As Row = tb.Rows(i)
    Dim dr As DataRow = dt3.Find("规格='" & r("Comment") & "' And 封装 ='" & r("Footprint") & "'")
    If dr Is Nothing Then
        dr = dt3.SQLFind("规格='" & r("Comment") & "' And 封装 ='" & r("Footprint") & "'")
    End If
    If dr IsNot Nothing Then
        If dr.IsNull("物料代码") = False Then
            r("子阶代码") = dr("物料代码")
            Dim dr1 As DataRow = dt2.SQLFind("代码 ='" & r("子阶代码") & "'")
            r("物料名称") = dr1("名称")
            r("规格型号") = dr1("规格型号")
            r("单位") = dr1("单位")
            r("车间") = dr1("车间")
            r("物料属性") = dr1("物料属性")
            r("仓库") = dr1("默认仓库名称")
        Else
            'MessageBox.Show("没有找到")
            r("子阶代码") = Nothing
            r("物料名称") = Nothing
            r("规格型号") = Nothing
            r("单位") = Nothing
            r("车间") = Nothing
            r("物料属性") = Nothing
            r("仓库") = Nothing
        End If
    End If
Next
tb.AutoSizeCols()
MessageBox.Show("物料生成完成")

 找不到的话，说明别人没有把数据保存，sqlFind才找不到的。