主题：导入判断

六楼的大哥，麻烦您看一下，按帮助这样改却是不行，不知为行，请帮忙，我想弹出一个对话框自由选择文件

Dim Bm,flt As String
flt = DataTables("物料基础信息表").GetComboListString("物料编号","","物料编号")
flt =  "物料编号 In ('" & flt.Replace("|","','") & "')"     '物料编号存在于物料基础信息表的
Bm = "合并的表名" & "$"

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls" '设置筛选器
Dim mg As New Merger
mg.SourcePath = dlg.FileName
mg.Format = "excel" '指定格式
mg.SourceTableName =  BM   '指定要合并的表
mg.DataTableName = "产成品入库汇总表"     '指定接收数据的表
mg.Filter = flt '指定合并条件
mg.Merge() '开始合