主题：导入判断

新手求解：有两个表，一个是物料基础信息表，一个是产成品入库汇总表，其中产成品入库汇总表通过窗口导入按钮导入数据时，要求导入的是‘物料基础信息表’中已存在的‘物料编号’和‘物料名称’才可以导入，作了三个按钮进行测试，求代码：

                   1：导入前判断按钮：物料基础信息表中存在的才可以导入，不存在的不能导入，查阅了帮助，无相关案例，是否可以做得到？求代码？

                    2：导入EXCEL数据：能不能通过datacolchanging事件触发的时候，判断并提示‘此物料编号’在‘物料基础信息表’不存在，不能导入，目前用的是merge,并无相关判断功能，求代码？

                   若第一点和第二点都没有办法，退而求次之，用第三点

                   3：导入后检查按钮： 先无条件合并，然后再删除‘物料基础信息表’中不存在的相应物料编号的行或数据，求代码

请高手指点，真诚地谢谢！谢谢！

               

      

 

       

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

点击浏览该文件:导入判断.foxdb

 提示出错

 

此主题相关图片如下：捕获1.jpg

这是最好的办法吗？还有没有其它可解决的办法？

呵呵，六楼的方法可行，谢谢

 

再请教六楼，希望合并时出现一个打开文件对话框（就是不指定绝对路径），自由选择指定的文件，应当如何修改，谢谢

 

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

 

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() '开始合

谢谢，可以了

 

谢谢，OK了，非常感谢两位的热情指导，谢谢