主题：[求助]条件替换，合并时变相排重

  参考  http://www.foxtable.com/help/topics/2334.htm

 不要写到beforeadddatarow事件，你单独弄一个按钮输入代码

Dim Book As New XLS.Book("d:\test.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Tables("URL表").StopRedraw()
Dim nms() As String = {"客户端二级栏目","客户端三级栏目","信息分类","地区","部门","类型","状态","网站名","内容标注","栏目标注","栏目名","网址"}
For n As Integer = 1 To Sheet.Rows.Count -1
    Dim bh As String = sheet(n,0).Text
    Dim dr As DataRow = DataTables("URL表").Find("网址 = '" & bh & "'")
    If dr Is Nothing Then '如果不存在同编号的订单
        dr =  DataTables("URL表").AddNew()
    End If
    For m As Integer = 0 To nms.Length - 1
        dr(nms(m)) = Sheet(n,m).Value
    Next
Next
Tables("URL表").ResumeRedraw()

 或者去写datacolchanged事件

 这个简单，参考

http://www.foxtable.com/help/topics/0328.htm

你要注意bh为空值的情况要怎么处理

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls|Word文件|*.doc|Access文件|*.mdb" '设置筛选器
If dlg.ShowDialog = DialogResult.OK Then
    Dim Book As New XLS.Book(dlg.FileName)
    Dim Sheet As XLS.Sheet = Book.Sheets(0)
    Tables("URL表").StopRedraw()
    Dim nms() As String = {"客户端二级栏目","客户端三级级栏目","信息分类","地区","部门","类型","状态","网站名","内容标注","栏目标注","栏目名","网址"}
    For n As Integer = 1 To Sheet.Rows.Count -1
        Dim bh As String = sheet(n,11).Text
        Dim dr As DataRow = DataTables("URL表").Find("网址 = '" & bh & "'")
        If dr Is Nothing Then
            dr =  DataTables("URL表").AddNew()
        End If
        For m As Integer = 0 To nms.Length - 1
            dr(nms(m)) = Sheet(n,m).Value
        Next
    Next
    Tables("URL表").ResumeRedraw()
end if