以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  合并EXCEL问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=25159)

--  作者:hlm
--  发布时间:2012/11/1 21:30:00
--  合并EXCEL问题

按以下代码作了一个导入的按钮,每次执行导入时,物料信息表中"物料编号"有重复的也会导入,请问如何改写代码执行筛选,比如原来表中已有此物料编号,再导入相同的物料编号时进行提示并不能导入,谢谢

 

合并Excel文件:

Dim mg As New Merger
mg.SourcePath = "c:\\data\\物料信息.xls"
mg.Format = "excel" \'指定格式
mg.SourceTableName = "物料信息表" \'指定要合并的表
mg.DataTableName = "物料信息" \'指定接收数据的表
mg.Merge() \'开始合并


--  作者:lin_hailun
--  发布时间:2012/11/1 21:49:00
--  
 方法一:导入到临时表,然后用filler填充,比较麻烦。

 方法二:自己写一个导入Excel的代码。

 方法三:合并,之后删除掉重复的数据……

------------------------------------------------------

 合并是无法排除重复的。感觉重复这个是个问题,狐爸有没有必要弄一个可以根据条件不重复导入的东西出来呢?自己写代码好麻烦啊!
[此贴子已经被作者于2012-11-1 21:51:31编辑过]

--  作者:szp2012
--  发布时间:2012/11/1 21:50:00
--  

下面代码是我从论坛搜素,通用判断不重复导入,注意: 准备导入表的字段应该包含在接收表中

 

 

Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls|CSV文件|*.csv" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    Dim Book As New XLS.Book(dlg.FileName)
    Dim Sheet As XLS.Sheet = Book.Sheets(0)
    For i As Integer = 0 To Sheet.Cols.Count -1
        If CurrentTable.Cols.Contains( Sheet(0,i).Value) = False Then
            MessageBox.Show("目标文件不含【" & Sheet(0,i).Value & "】列,请修改与目标文件一致!", "导入错误提示")
            Return
        End If
    Next
    Dim Filter1 As String
    For r As Integer = 1 To Sheet.Rows.Count - 1
        Filter1 = ""
        For c As Integer = 0 To Sheet.Cols.Count - 1
            If c > 0 Then
                Filter1 = Filter1 & " And "
            End If
            \'If  CurrentTable.DataTable.DataCols(sheet(0,c).Value).Isnumeric Then
                \'If sheet(r,c).Value = "" Then
                   \' Filter1 = Filter1 & sheet(0,c).Value & " is null"
                \'Else
                    \'Filter1 = Filter1 & sheet(0,c).Value & " = " & sheet(r,c).Value
                \'End If
            \'Else
                If sheet(r,c).Value.Trim = "" Then
                    Filter1 = Filter1 & sheet(0,c).Value & " is null "
                Else
                    Filter1 = Filter1 & sheet(0,c).Value & " = \'" & sheet(r,c).Value.Trim() & "\'"
                End If
           \' End If
        Next
        If CurrentTable.DataTable.Find(Filter1) Is Nothing Then
            Dim dr As Row = CurrentTable.AddNew()
            For c As Integer = 0 To Sheet.Cols.Count - 1
                dr(Sheet(0,c).Value) = Sheet(r,c).Value.Trim
            Next
        End If
    Next
End If

[此贴子已经被作者于2012-11-1 21:51:22编辑过]

--  作者:lin_hailun
--  发布时间:2012/11/1 21:52:00
--  
 嗯嗯,楼上的代码,看来我要收藏下才行……图片点击可在新窗口打开查看
--  作者:老有所乐
--  发布时间:2012/12/1 21:11:00
--  
试了一下,3搂的代码好像还是会重复导入
--  作者:gzdw
--  发布时间:2012/12/1 23:09:00
--  

请参考我以前提问时,“y2287958”的答案,非常简练。

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=25083&replyID=&skin=1

 

代码为:

Dim cmd As New SQLCommand
cmd.CommandText = "SELECT * From {新IP地址表} WHERE IP地址 NOT IN (SELECT DISTINCT IP地址 From {原IP地址表})"
Dim dt As DataTable = cmd.ExecuteReader()

\'导入所有数据
Dim f As New Filler
f.SourceTable = dt \'指定数据来源
f.SourceCols = "IP地址,使用人" \'指定数据来源列
f.DataTable = DataTables("原IP地址表") \'指定数据接收表
f.DataCols = "IP地址,使用人" \'指定数据接收列
f.Fill() \'填充数据