Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求助：关于合并数据，怎么实现EXCEL表格跨列或者指定的列数据导入呢？


  共有4754人关注过本帖树形打印复制链接

主题：求助：关于合并数据，怎么实现EXCEL表格跨列或者指定的列数据导入呢？
帅哥哟，离线，有人找我吗？
李孝春
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00 		求助：关于合并数据，怎么实现EXCEL表格跨列或者指定的列数据导入呢？  发帖心情 Post By：2019/2/14 11:30:00 [只看该作者]

求助：关于合并数据，怎么实现EXCEL表格跨列或者指定的列数据导入呢？

excel中有案件编号  案件类别  姓名  承办部门  承办人  承办日期  承办结果

但是实际使用中我只需要案件编号  姓名    承办结果

怎么实现跨列导入？并且比配案件基本信息表中的   案件编号  姓名   处理结果


Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog

dlg.Filter= "Excel文件|*.xls|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("案件基本信息").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("案件基本信息").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

    Next

    Tables("案件基本信息").ResumeRedraw()

End If

[此贴子已经被作者于2019/2/14 11:32:54编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/2/14 12:18:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
李孝春
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00 		回复：（有点甜）参考 http://www.foxtable....  发帖心情 Post By：2019/2/14 12:55:00 [只看该作者]


有点甜老师   操作不得要领呢
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:信息自动化.foxdb

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:公诉信息表.xls

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:批捕信息表.xls

在主窗体中我写入了导入事件代码：可以实现数据导入
但是数据不能按照指定的列进入指定的数据表里
出现了错乱
有木有办法导入EXCEL表中我对应指定的列值，且对应到表中对应的列值呢？多余的部分不用导入。

代码如下：
DataTables("案件基本信息").AllowEdit= True
Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim Book As New XLS.Book(dlg.FileName)
    Dim Sheet As XLS.Sheet = Book.Sheets(0)
    Tables("案件基本信息").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("案件基本信息").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
    Next
    Tables("案件基本信息").ResumeRedraw()
End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/2/14 15:24:00 [只看该作者]

Dim dlg As New OpenFileDialog
dlg.Filter = "Excel文件|*.xls;*.xlsx"
If dlg.ShowDialog =DialogResult.OK Then
    Dim t As Table = Tables("案件基本信息")
    t.StopRedraw()
    Dim Book As New XLS.Book(dlg.FileName)
    Dim Sheet As XLS.Sheet = Book.Sheets(0)
    For n As Integer = 1 To Sheet.Rows.Count -1
        Dim r As DataRow = t.DataTable.Find("部门受案号 = '" & sheet(n,0).text & "'")
        If r Is Nothing Then r = t.DataTable.AddNew()
        For i As Integer = 0 To sheet.Cols.Count -1
            Dim cname As String = sheet(0, i).text
            If t.Cols.Contains(cname) Then
                r(cname) = sheet(n, i).Text
            End If
        Next
    Next
    t.ResumeRedraw()
End If

 回到顶部
帅哥哟，离线，有人找我吗？
李孝春
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00 		回复：（有点甜）Dim dlg As New OpenFileDialogdlg.F...  发帖心情 Post By：2019/2/15 11:39:00 [只看该作者]

有点甜老师  上述方法在导入表和拟写入表中的列名一样的话  已经实现完美导入

但是假设导入表中有一个  移诉意见        案件基本信息表中   对应的  移送意见    怎么匹配呢？列名位置不一定是一一对应的   也存在跨行的情况
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/2/15 11:53:00 [只看该作者]

Dim dlg As New OpenFileDialog
dlg.Filter = "Excel文件|*.xls;*.xlsx"
If dlg.ShowDialog =DialogResult.OK Then
    Dim t As Table = Tables("案件基本信息")
    t.StopRedraw()
    Dim Book As New XLS.Book(dlg.FileName)
    Dim Sheet As XLS.Sheet = Book.Sheets(0)
    For n As Integer = 1 To Sheet.Rows.Count -1
        Dim r As DataRow = t.DataTable.Find("部门受案号 = '" & sheet(n,0).text & "'")
        If r Is Nothing Then r = t.DataTable.AddNew()
        For i As Integer = 0 To sheet.Cols.Count -1
            Dim cname As String = sheet(0, i).text
            If t.Cols.Contains(cname) Then
                r(cname) = sheet(n, i).Text

            ElseIf cname = "移诉意见" Then

                r("移送意见") = sheet(n, i).Text
            End If
        Next
    Next
    t.ResumeRedraw()
End If
 回到顶部
帅哥哟，离线，有人找我吗？
李孝春
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00 		回复：（有点甜）Dim dlg As New OpenFileDialogdlg.F...  发帖心情 Post By：2019/2/16 1:30:00 [只看该作者]

有点甜老师  晚上好
经过测试   该代码是每次都导入数据  并且更新所有列

有没有办法加入一个判断
导入前先判断案件基本信息表中有没有部门受案号存在
如果有   那么该部门受案号不再新增  只是更新所有列值
如果没有  那么该部门受案号新增并且更新所有列值

其中案件基本信息表中 是否关联   这个列值不能因为导入数据而更新的  要确保其永远不变      
 回到顶部
帅哥，在线噢！
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111419 积分：567171 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/2/16 9:05:00 [只看该作者]

Dim dlg As New OpenFileDialog
dlg.Filter = "Excel文件|*.xls;*.xlsx"
If dlg.ShowDialog =DialogResult.OK Then
    Dim t As Table = Tables("案件基本信息")
    t.StopRedraw()
    Dim Book As New XLS.Book(dlg.FileName)
    Dim Sheet As XLS.Sheet = Book.Sheets(0)
    For n As Integer = 1 To Sheet.Rows.Count -1
        Dim r As DataRow = t.DataTable.Find("部门受案号 = '" & sheet(n,0).text & "'")
        Dim Isnew As Boolean
        If r Is Nothing Then
            r = t.DataTable.AddNew()
            Isnew  = True
        End If
        For i As Integer = 0 To sheet.Cols.Count -1
            Dim cname As String = sheet(0, i).text
            If t.Cols.Contains(cname) Then
                If Isnew = False AndAlso cname = "是否关联" Then Continue For
                r(cname) = sheet(n, i).Text
            ElseIf cname = "移诉意见" Then
                r("移送意见") = sheet(n, i).Text
            End If
        Next
    Next
    t.ResumeRedraw()
End If
 回到顶部
帅哥哟，离线，有人找我吗？
李孝春
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00 		回复：（有点蓝）Dim dlg As New OpenFileDialogdlg.F...  发帖心情 Post By：2019/2/16 10:10:00 [只看该作者]

有点蓝老师     现在数据还是会新增

是想实现在数据导入之前，将导入前的部门受案号去对比案件基本信息表中的部门受案号

如果有部门受案号存在  就不新增数据行，只是更新表中的列值与案件基本信息表中的列值
如果没有部门受案号存在  就新增数据行   更新表中的全部列值到案件基本信息表中
 回到顶部
帅哥，在线噢！
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111419 积分：567171 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/2/16 10:31:00 [只看该作者]

本来就是这样处理的，请看懂代码，并仔细测试。

另外检查execl或者Foxtable的部门受案号是否有多余的空格或者其它看不见的符号，导致查询不到

Dim r As DataRow = t.DataTable.Find("部门受案号 = '" & sheet(n,0).text.trim() & "'")
 回到顶部
总数 17 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06250 秒, 5 次数据查询