主题：[求助]求助，数据更新的问题

请各位帮个忙，实例已上传，就是第一次做了“户主信息”，以后每季度都有变动，我如何把村一级管理的已导出数据，直接更新到镇一级的系统里，比如“更新数据源”文件夹里的是村上上报新数据，乍样能智能地自动追加到前面已做好的表里，我设置了个数据更新窗口，里面设置一个数据更新按钮，乍样能点一下数据更新按钮，自动追加数据，（要求：前一次没有的（身份证号）新数据增加在原表里，与原有的数据身份证号相同时不增加记录，身份证后面的每列数据自动覆盖前一次的数据，最好在原表里再显最后更新时间），谢谢各位了

编码合并,想怎么样就怎么样!

请各位帮一下忙啊，谢谢了，用编码合并的只能导入新增加的，新修改的没法覆盖原来的数据啊，

呵呵,不是让你完全复制他的代码呢.

以上面的帮助中的例子为例，如果已经存在的更新，不存在的添加，只需将代码改为：

 

 

Dim Book As New XLS.Book("c:\test\订单.xls")
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 bh As String = sheet(n,0).Text
    Dim dr As DataRow = DataTables("订单").Find("编号 = '" & bh & "'")
    If dr Is Nothing Then '如果不存在同编号的订单
        dr =  DataTables("订单").AddNew()
    End If
    For m As Integer = 0 To nms.Length - 1
        dr(nms(m)) = Sheet(n,m).Value
    Next
End If
Next
Tables("订单").ResumeRedraw()

狐爸，我做了还是不对，实例上传，麻烦您给看一上，谢谢

 我看了一下，你把代码 家庭人口 改成 家庭人口数，就正确了

导入的是重复的啊，户主身份证号相同时，其数据不会覆盖，面是重复一条，不知乍会事？

 如下代码，测试有效

谢谢，我试了成功了，谢谢您啊！