- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 指定合并条件 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=42020)
-- 发布时间：2013/11/1 18:05:00
-- 指定合并条件
Dim dlg As New OpenFileDialog \'定一个新的OpenFileDialog
Dim s1 As String
dlg.Filter= "Excel文件|*.xls" \'|文本文件|*.txt|Access文件|*.mdb" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
s1 = dlg.FileName
If s1<> " " Then
Dim Book As New XLS.Book(s1)
Dim ss3 As String = Book.Sheets(0).Name + "$"
Dim mg As New Merger
mg.SourcePath = s1
mg.Format = "excel" \'指定格式
mg.SourceTableName = ss3 \'指定要合并的表
mg.DataTableName = "客户信息" \'指定接收数据的表
mg.Filter = "[身份证号] <> \'\'" \'指定合并条件 \' 不合并身份证号相同的行;如何实现
mg.Merge() \'开始合并
End If
End If
-- 发布时间：2013/11/1 18:54:00
--
请参考 帮助文档:
自行编码合并外部数据
-- 发布时间：2013/11/1 19:06:00
--
之前有人做个的例子，你可以参考一下。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:合并比较例子_数据合并.rar |