Foxtable(狐表) → 用户栏目 → 专家坐堂 → 一个excl表分列导入两个表


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

主题：一个excl表分列导入两个表
帅哥哟，离线，有人找我吗？
刘林
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1959 积分：15051 威望：0 精华：0 注册：2016/4/28 9:58:00 		一个excl表分列导入两个表  发帖心情 Post By：2016/11/16 22:06:00 [只看该作者]

Dim dlg As new OpenFileDialog
dlg.Filter = "Excel|*.xls;*.xlsx"
If dlg.ShowDialog = DialogResult.OK Then
    Dim Book As New XLS.Book(dlg.FileName)
    Dim Sheet As XLS.Sheet = Book.Sheets(0)
    Tables("学生信息").StopRedraw()
    For n As Integer = 1 To Sheet.Rows.Count -1
        Dim bj As String = sheet(n,2).value.replace(" ","").replace(chr(9),"")
        Dim bsm As String = sheet(n,1).value.replace(" ","").replace(chr(9),"")
        Dim xm As String = sheet(n,4).value.replace(" ","").replace(chr(9),"")
        Dim dh As String = sheet(n,5).value.replace(" ","").replace(chr(9),"")
        Dim dr As DataRow = DataTables("学生信息").sqlFind("班级 = '" & bj & "'and 学校标识码 = '" & bsm & "'and 联系电话 = '" & dh & "'  And 学生姓名 = '" & xm & "'")
        For m As Integer = 0 To sheet.Cols.Count-1
             If dr Is Nothing Then dr = DataTables("学生信息").AddNew()
            If m <= 5 Then
                dr(sheet(0,m).value.replace(" ","").replace(chr(9),"")) = Sheet(n,m).Value
                dr.save()
            Else
                Dim id As String = dr("学生Id")
                Dim dr2 As DataRow = DataTables("成绩").sqlFind("学生ID = '"& id & "' and 考试名称 = '" & sheet(n,6).value &"'")       
                If dr Is Nothing Then
                    dr2 = DataTables("成绩").AddNew()
                End If
                dr2("姓名") = dr("学生姓名")
                dr2("单位名称") = dr("学校名称")
                dr2("学校代码") = trim(dr("学校标识码")).Substring(7,4)
                dr2("学生ID") = dr("学生ID")
                dr2(sheet(0,m).value.replace(" ","").replace(chr(9),"")) = Sheet(n,m).Value              
                dr2.save()
            End If
        Next
    Next
    Tables("学生信息").ResumeRedraw()
End If

学校名称 学校标识码 年级 班级 学生姓名 联系电话 考试名称 语文_A  语文_B 数学_A 数学_B
内江市东兴区石子镇中心学校 3151000403 初中2015级 初中2015级4班 钟玲 　 16秋半期 52 23 25 56

老师我有一个结构大致如上的EXCL表，我想先根据班级，学校标识码，联系电话，姓名查找，如学生信息表中没有就新增并把前6列导入学生信息表,保存后取得_Identify生成的学生ID，再在成绩表中用学生ID和考试名称查找，如没找到新增并把相关信息和EXCl中第七列开始的信息导入。现在提示未将实列引入对象。请问如何改，实现这个如何更简单快捷，谢谢
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112389 积分：572213 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/11/16 22:29:00 [只看该作者]

Dim dlg As new OpenFileDialog
dlg.Filter = "Excel|*.xls;*.xlsx"
If dlg.ShowDialog = DialogResult.OK Then
    Dim Book As New XLS.Book(dlg.FileName)
    Dim Sheet As XLS.Sheet = Book.Sheets(0)
    Tables("学生信息").StopRedraw()
    For n As Integer = 1 To Sheet.Rows.Count -1
        Dim bj As String = sheet(n,2).value.replace(" ","").replace(chr(9),"")
        Dim bsm As String = sheet(n,1).value.replace(" ","").replace(chr(9),"")
        Dim xm As String = sheet(n,4).value.replace(" ","").replace(chr(9),"")
        Dim dh As String = sheet(n,5).value.replace(" ","").replace(chr(9),"")
        Dim dr As DataRow = DataTables("学生信息").sqlFind("班级 = '" & bj & "'and 学校标识码 = '" & bsm & "'and 联系电话 = '" & dh & "'  And 学生姓名 = '" & xm & "'")
        If dr Is Nothing Then dr = DataTables("学生信息").AddNew()
        For m As Integer = 0 To 5
            dr(sheet(0,m).value.replace(" ","").replace(chr(9),"")) = Sheet(n,m).Value
        Next
        dr.save()
        Dim id As String = dr("学生Id")
        Dim dr2 As DataRow = DataTables("成绩").sqlFind("学生ID = '"& id & "' and 考试名称 = '" & sheet(n,6).value &"'")
        If dr Is Nothing Then
            dr2 = DataTables("成绩").AddNew()
        End If
        dr2("姓名") = dr("学生姓名")
        dr2("单位名称") = dr("学校名称")
        dr2("学校代码") = trim(dr("学校标识码")).Substring(7,4)
        dr2("学生ID") = dr("学生ID")
        
        For m As Integer = 6 To sheet.Cols.Count-1
            dr2(sheet(0,m).value.replace(" ","").replace(chr(9),"")) = Sheet(n,m).Value
        Next
        dr2.save()
    Next
    Tables("学生信息").ResumeRedraw()
End If
 回到顶部
帅哥哟，离线，有人找我吗？
刘林
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1959 积分：15051 威望：0 精华：0 注册：2016/4/28 9:58:00 		  发帖心情 Post By：2016/11/17 7:55:00 [只看该作者]

老师，还是一样提示，未将实例引入对象，

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


加好友 发短信
等级：二尾狐 帖子：573 积分：2961 威望：0 精华：0 注册：2016/10/27 14:33:00 		  发帖心情 Post By：2016/11/17 8:46:00 [只看该作者]

 不会，上传实例测试。

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


加好友 发短信
等级：八尾狐 帖子：1959 积分：15051 威望：0 精华：0 注册：2016/4/28 9:58:00 		  发帖心情 Post By：2016/11/17 9:48:00 [只看该作者]

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


1、请老帮查一个很严重的问题，我的成绩表中每个学生的折总是对的，但在后台统计表中算折总平均与导出的excl算出的班级折总多几十分，我查了很久没找出问题所在。
2、2楼问题在上分窗口中的两表导入按键
 回到顶部
帅哥哟，离线，有人找我吗？
有点青
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：573 积分：2961 威望：0 精华：0 注册：2016/10/27 14:33:00 		  发帖心情 Post By：2016/11/17 10:13:00 [只看该作者]

1、连不上你的数据库；

 

2、密码是多少？

 

3、尽量单独做一个建议的实例上传上来测试。
 回到顶部
帅哥哟，离线，有人找我吗？
刘林
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1959 积分：15051 威望：0 精华：0 注册：2016/4/28 9:58:00 		  发帖心情 Post By：2016/11/17 10:16:00 [只看该作者]

密码000
 回到顶部
帅哥哟，离线，有人找我吗？
刘林
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1959 积分：15051 威望：0 精华：0 注册：2016/4/28 9:58:00 		  发帖心情 Post By：2016/11/17 10:19:00 [只看该作者]


用户:511011197405034877  密码:000
因为你只有帮我看了整个系统可能才查得到问题,我将整个发给你了
 回到顶部
帅哥哟，离线，有人找我吗？
刘林
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1959 积分：15051 威望：0 精华：0 注册：2016/4/28 9:58:00 		  发帖心情 Post By：2016/11/17 10:20:00 [只看该作者]

数据库应该连得上哟，麻烦你了

 回到顶部
帅哥，在线噢！
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112389 积分：572213 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/11/17 10:33:00 [只看该作者]

开发者密码，其它用户进不来系统菜单，没有办法查看代码

 回到顶部
总数 29 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 5 次数据查询