专家坐堂-[求助]导入EXCEL表格更新原有数据的方法Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]导入EXCEL表格更新原有数据的方法  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=106860)

--  作者：jjjeyes
--  发布时间：2017/9/16 22:56:00
--  [求助]导入EXCEL表格更新原有数据的方法
有个SQL数据源的表A，各列为“学号”，“姓名”，“性别”，“班级”，数据内容也有10000条。
因为数据内容有更新，设置了个“导入”按钮，准备从外部导入EXCEL表格（表123）更新原有数据内容。
请问，如何写这个“导入”按钮的代码。请指教！
注：1、表A的数据可能是10000条，外部EXCEL表格（表123）的数据可能是10000+10条。
2、表A和表123可能就是部分学生的班级发生了变化。学生的学号不会变动。
3、表123也有“学号”，“姓名”，“性别”，“班级”这几列

[此贴子已经被作者于2017/9/16 23:00:25编辑过]

--  作者：有点甜
--  发布时间：2017/9/17 15:07:00
--

参考 http://www.foxtable.com/webhelp/scr/2334.htm

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=101056&skin=0

--  作者：jjjeyes
--  发布时间：2017/9/17 22:18:00
--

我试过用下面的代码做：

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 bh As String = sheet(n,0).Text
If DataTables("班级信息表").Find("班级编号 = \'" & bh & "\'") Is Nothing Then \'如果不存在同编号的订单
c = c + 1
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()
DataTables("班级信息表").Save
MessageBox.Show("导入完成,共导入" & c & "条记录")
End If

但是试用过后又有个问题，以上代码可以对原有数据进行增加，不能对原有数据做修改！所以还是达不到我的要求。
我现在有个思路：就是将EXCEL数据先导入到临时表中，然后再用临时表和现有数据做比对用跨表引用的方式更新数据，请问这个办法可否？

--  作者：有点甜
--  发布时间：2017/9/17 23:04:00
--

修改代码

Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    Dim c As Integer = 0
    Dim x 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 bh As String = sheet(n,0).Text
        dim fdr as datarow = DataTables("班级信息表").Find("班级编号 = \'" & bh & "\'")
        If fdr Is Nothing Then \'如果不存在同编号的订单
            c = c + 1
            fdr = dataTables("班级信息表").AddNew()
        else
            x = x + 1
        End If
        For m As Integer = 0 To nms.Length - 1
            fdr(nms(m)) = Sheet(n,m).Value
        Next
    Next
    Tables("班级信息表").ResumeRedraw()
    DataTables("班级信息表").Save
    MessageBox.Show("导入完成,共导入" & c & "条记录,修改" & x & "条记录")
End If

--  作者：jjjeyes
--  发布时间：2017/9/18 0:43:00
--
非常感谢，虽然有些地方还没有看懂。但是已基本达到要求了。
不过后面的“修改x条信息”，不管导入多少条，只要是导入的不管和原先有没有不同，都记为修改了的。把原来相同的数据也记做了修改的条目

--  作者：有点甜
--  发布时间：2017/9/18 8:46:00
--

以下是引用jjjeyes在2017/9/18 0:43:00的发言：

不过后面的“修改x条信息”，不管导入多少条，只要是导入的不管和原先有没有不同，都记为修改了的。把原来相同的数据也记做了修改的条目

变量n记录的是导入的新增的条数；变量x记录的是修改原来表的数据的条数。这两个数据不正确吗？

--  作者：jjjeyes
--  发布时间：2017/9/18 10:18:00
--
打个比方，原数据有10000条，导入数据也有同样学号的10000条，只是有2条数据的班级和原班级不同，导入后显示为“导入0条，修改10000条”，按道理应是“导入0条，修改2条”才对！

--  作者：有点甜
--  发布时间：2017/9/18 10:41:00
--

Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    Dim c As Integer = 0
    Dim x 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 bh As String = sheet(n,0).Text
        Dim fdr As DataRow = DataTables("班级信息表").Find("班级编号 = \'" & bh & "\'")
        If fdr Is Nothing Then \'如果不存在同编号的订单
            c = c + 1
            fdr = DataTables("班级信息表").AddNew()
        Else
            For m As Integer = 0 To nms.Length - 1
                If fdr(nms(m)) <> Sheet(n,m).Value
                    x = x + 1
                    Exit For
                End If
            Next
        End If

        For m As Integer = 0 To nms.Length - 1
            fdr(nms(m)) = Sheet(n,m).Value
        Next
    Next
    Tables("班级信息表").ResumeRedraw()
    DataTables("班级信息表").Save
    MessageBox.Show("导入完成,共导入" & c & "条记录,修改" & x & "条记录")
End If

[此贴子已经被作者于2017/9/18 10:42:06编辑过]

--  作者：jjjeyes
--  发布时间：2017/9/18 22:00:00
--
非常感谢，对以上代码慢慢解读，终于有所明白！

另外还想询问一下，在导入Excel表格时，如何判别导入的EXCEL表格是否按原格式，每一列的位置没有变化！
我想这个也很重要，在很多时候也会用到，可是帮助文件也没有讲到。

--  作者：有点蓝
--  发布时间：2017/9/18 22:20:00
--
列位置是可以不一样的，使用一个字典记住即可

帮助不是万能的，帮助是帮助学习基础的，进阶就要靠自己了