主题：条件查询组合统计 数据填入已存在的“统计表”，而非窗口里的_table1

'----------------------下面这段代码是导入外部excle,存在同编号则跳过.怎么改成:窗口统计表导入,存在同编号,则覆盖,不存在同编号,则新建----------
Dim book,c
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Tables("窗口1_Table1").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 r As DataRow = DataTables("窗口1_Table1").Find("主键编号 = '" & bh & "'")
    If r Is Nothing Then '如果不存在同编号
        r = DataTables("窗口1_Table1").AddNew()
    End If
    c = c + 1
    For m As Integer = 0 To nms.Length - 1
        r(nms(m)) = Sheet(n,m).Value
    Next
   
Next
Tables("窗口1_Table1").ResumeRedraw()
'DataTables("统计表").Save  '上面的代码是导入不重复的行,自动保存看不出那些事新增导入的
MessageBox.Show("导入完成,共导入" & c & "条记录")