主题：[求助] 导入行不重复

 导入行有2列值重复（导入的excle表有2列和狐表2列值一样的话）跳过不导入该excle行 和excle该行覆盖狐表该行

第一次发帖求助，上传的附件怎么显示不了？

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

点击浏览该文件:管理项目1.table

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

点击浏览该文件:前2列值重复 判断跳过还是覆盖.xls

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim c As Integer = 0
    Dim Book As New XLS.Book(dlg.FileName)
    Dim Sheet As XLS.Sheet = Book.Sheets(0)
    Tables("物料信息").StopRedraw()
   
    '注意以下数组中列名称的顺序,必须和Excel表中的列顺序一致
    Dim nms() As String = {"条目类型","主题","创建日期","开始时间","结束时间","备忘录"}
    '注意下面的循环变量从1开始,而不是从0开始,因为Excel表的第一行是标题
    For n As Integer = 1 To Sheet.Rows.Count -1
        Dim lx As String = sheet(n,0).Text
        Dim zt As String = sheet(n,1).Text
        If DataTables("物料信息").Find("主题 = '" & zt & "' and 条目类型 = '" & lx & "'") 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

 谢红袍教主，这么晚还帮忙处理

 教主，导入的excle表有2列和狐表2列值一样的话，要覆盖狐表该行，代码怎么修改呢？

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim c As Integer = 0
    Dim Book As New XLS.Book(dlg.FileName)
    Dim Sheet As XLS.Sheet = Book.Sheets(0)
    Tables("物料信息").StopRedraw()
   
    '注意以下数组中列名称的顺序,必须和Excel表中的列顺序一致
    Dim nms() As String = {"条目类型","主题","创建日期","开始时间","结束时间","备忘录"}
    '注意下面的循环变量从1开始,而不是从0开始,因为Excel表的第一行是标题
    For n As Integer = 1 To Sheet.Rows.Count -1
        Dim lx As String = sheet(n,0).Text
        Dim zt As String = sheet(n,1).Text
        Dim fdr As DataRow = DataTables("物料信息").Find("主题 = '" & zt & "' and 条目类型 = '" & lx & "'")
        If fdr Is Nothing Then '如果不存在同编号的订单
            fdr = DataTables("物料信息").AddNew()
        End If
        For m As Integer = 0 To nms.Length - 1
            fdr(nms(m)) = Sheet(n,m).Value
        Next
    Next
    Tables("物料信息").ResumeRedraw()
End If

求助，导入的excle表200多列，只有这200列值和狐表里面的值不一样才要实现导入呢？也就是如果这200列都一样就不导入。

1、动态合成条件啊

 

Dim fdr As DataRow = DataTables("物料信息").Find("主题 = '" & zt & "' and 条目类型 = '" & lx & "'")

 

2、显示新增的行，参考

 

http://www.foxtable.com/webhelp/scr/0112.htm

 

3、显示修改的值，参考

 

http://www.foxtable.com/webhelp/scr/1630.htm

 

 Dim fdr As DataRow = DataTables("物料信息").Find("主题 = '" & zt & "' and 条目类型 = '" & lx & "'")   200列红色这写太长了，能简单一点的集写法嘛？