Foxtable(狐表)用户栏目专家坐堂 → [求助]练习(成績管理系統)怎么比较导入?


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

主题:[求助]练习(成績管理系統)怎么比较导入?

帅哥哟,离线,有人找我吗?
shacool
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:106 积分:1246 威望:0 精华:0 注册:2010/5/15 17:53:00
[求助]练习(成績管理系統)怎么比较导入?  发帖心情 Post By:2011/6/8 15:29:00 [只看该作者]

想在总成绩表中只导入数学成绩.在总成绩表中有窗口

 

如果有期数等于窗口日期就只导入数学成绩,如果窗口日期不等于窗口日期,就导入姓名和数学成绩.

 

用填充的方面不能只取excel部分值

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:成績管理系統.rar

[此贴子已经被作者于2011-6-8 18:29:18编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
shacool
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:106 积分:1246 威望:0 精华:0 注册:2010/5/15 17:53:00
  发帖心情 Post By:2011/6/8 16:34:00 [只看该作者]

Dim Names As String() = {"考试期数"}
For Each Name As String In Names
If Name=Forms("窗口2").controls("DateTimePicker1").text Then
     Dim dlg As New OpenFileDialog
     dlg.Filter= "Excel文件|*.xls"
      If dlg.ShowDialog = DialogResult.Ok Then
           Dim mg As New Merger
            mg.SourcePath = dlg.FileName
           Dim App As New MSExcel.Application
           Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(dlg.FileName)
           Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
              Dim f As New Filler
         f.SourceTable = DataTables(Ws.Name & "$") '指定数据来源
              f.SourceCols = "数学" '指定数据来源列
                    f.DataTable = DataTables("表B") '指定数据接收表
                    f.DataCols = "数学" '指定数据接收列
                    f.Fill() '填充数
            End If
Else 
       Dim dlg As New OpenFileDialog
      dlg.Filter= "Excel文件|*.xls"
      If dlg.ShowDialog = DialogResult.Ok Then
           Dim mg As New Merger
            mg.SourcePath = dlg.FileName
           Dim App As New MSExcel.Application
           Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(dlg.FileName)
           Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
              Dim f As New Filler
              f.SourceTable = DataTables(Ws.Name & "$") '指定数据来源
              f.SourceCols = "姓名,数学" '指定数据来源列
                     f.DataTable = DataTables("表B") '指定数据接收表
                     f.DataCols = "姓名,数学" '指定数据接收列
                     f.Fill() '填充数据
           End If
End If
Next
这样不行啊
图片点击可在新窗口打开查看此主题相关图片如下:11.jpg
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
blackzhu
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9879 积分:57640 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2011/6/8 17:04:00 [只看该作者]

楼主,你的文件名一个都看不出是什么.乱码.

 回到顶部
帅哥哟,离线,有人找我吗?
blackzhu
  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9879 积分:57640 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2011/6/8 17:07:00 [只看该作者]

Importer  导入看帮助的这一章.


 回到顶部
帅哥哟,离线,有人找我吗?
shacool
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:106 积分:1246 威望:0 精华:0 注册:2010/5/15 17:53:00
  发帖心情 Post By:2011/6/8 17:08:00 [只看该作者]

等晚上再传个给你们就不会乱码了

 回到顶部
帅哥哟,离线,有人找我吗?
shacool
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:106 积分:1246 威望:0 精华:0 注册:2010/5/15 17:53:00
  发帖心情 Post By:2011/6/8 18:32:00 [只看该作者]

重新上传了不会乱码了


 回到顶部
帅哥哟,离线,有人找我吗?
shacool
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:106 积分:1246 威望:0 精华:0 注册:2010/5/15 17:53:00
  发帖心情 Post By:2011/6/8 21:11:00 [只看该作者]

普通的导入我也没问题。狐狸爸爸能帮忙看下吗?我的思路是那错了。

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/6/9 8:46:00 [只看该作者]

参考我这段代码,你应该用Merger,而不是Filler:

 

Dim dlg As New OpenFileDialog
dlg.Filter= "Excel文件|*.xls"
If dlg.ShowDialog = DialogResult.Ok Then
    Dim Book As New XLS.Book(dlg.FileName)
    Dim mg As New Merger
    mg.Format = "Excel"
    mg.SourcePath = dlg.FileName
    mg.SourceTableName = book.Sheets(0).Name & "$"   '指定数据来源
    mg.Fields = "姓名,数学" '指定数据来源列
    mg.DataTableName = "表B" '指定数据接收表
    mg.Merge() '填充数据
End If

[此贴子已经被作者于2011-6-9 9:07:57编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
shacool
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:106 积分:1246 威望:0 精华:0 注册:2010/5/15 17:53:00
  发帖心情 Post By:2011/6/9 9:08:00 [只看该作者]

谢谢啊!book.Sheets(0).Name代码我就不知道有

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/6/9 9:09:00 [只看该作者]

注意前面有行代码有误,应该是:

 

Dim Book As New XLS.Book(dlg.FileName)

 


 回到顶部
总数 16 1 2 下一页