主题：导入判断

编码合并excel文件，这样就可以进行条件判断：

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

例如：

Dim Book As New XLS.Book("c:\test\订单.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Tables("订单").StopRedraw()
Dim nms() As String = {"产品","客户","雇员","单价","折扣","数量","日期"}
For n As Integer = 1 To Sheet.Rows.Count -1
    If DataTables("订单").Find("产品 = '" & Sheet(r,0).Value & "'") IsNot Nothing Then
        Dim r As Row = Tables("订单").AddNew()
        For m As Integer = 0 To nms.Length - 1
            r(nms(m)) = Sheet(n,m).Value
        Next
    End If
Next
Tables("订单").ResumeRedraw()

看看这里的示例二：

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

如果6楼可行，要加个对话框选择文件：

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim Bm,flt As String
    flt = DataTables("物料基础信息表").GetComboListString("物料编号","","物料编号")
    flt =  "物料编号 In ('" & flt.Replace("|","','") & "')"     '物料编号存在于物料基础信息表的
    Bm = "要合并Excel的表名" & "$"
       
    Dim mg As New Merger
    mg.SourcePath = dlg.filename
    mg.Format = "excel" '指定格式
    mg.SourceTableName = Bm   '指定要合并的表
    mg.DataTableName = "产成品入库汇总表"     '指定接收数据的表
    mg.Filter = flt '指定合并条件
    mg.Merge() '开始合
End If