- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 合并EXCEL时重复记录问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=34954)
-- 发布时间：2013/6/20 13:05:00
-- 合并EXCEL时重复记录问题
从Excel表中导入数据时，如何实现只导入目标表中不存在的数据（根据某一关键列判断是否存在）
-- 发布时间：2013/6/20 13:20:00
--
根據关键列合成導入條件即可
-- 发布时间：2013/6/20 15:45:00
--
Dim dlg As New OpenFileDialog
dlg.Filter= "Excel文件|*.xls"
If dlg.ShowDialog = DialogResult.Ok Then
If MessageBox.Show("你选择的是:" & dlg.FileName,"提示",MessageBoxButtons.OKCancel) = DialogResult.OK Then
Dim Book As New XLS.Book( dlg.filename )
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Tables("明细表").StopRedraw()
Dim nms() As String = { "发票号" } \'这里还要接上你要导入的相关列
For n As Integer = 1 To Sheet.Rows.Count -1
Dim bh As String = sheet(n,0).Text
If DataTables("明细表").Find("发票号 = \'" & bh & "\'") Is 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()
End If
End If
-- 发布时间：2013/6/20 15:47:00
--
利用字符传递筛选条件，让接受数据的表格选择要接收的数据，具体思路就这样。
-- 发布时间：2016/1/24 3:00:00
--
同问啊
-- 发布时间：2016/1/24 9:20:00
--
看1楼，代码就是那样，要导入哪些列就依次写
Dim nms() As String = { "发票号", "第一列", "第二列"} \'这里还要接上你要导入的相关列
-- 发布时间：2016/1/24 9:20:00
--
参考 http://www.foxtable.com/help/topics/2334.htm