[求助]练习(成績管理系統)怎么比较导入? - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

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

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

下载信息 [文件大小：下载次数： ]
点击浏览该文件:成績管理系統.rar

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

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

这样不行啊

此主题相关图片如下：11.jpg

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

重新上传了不会乱码了

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

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

谢谢啊!这个我注意到了,但合并数学列的时候,分数怎么根据前面的姓名对应插入呢.

如果插入两个字段语文这个字段的分数就和姓名就不对应了.

谢谢!我自己的期数判定代码也是错的不知道错在哪?

Dim Names As List(Of String) = Tables("表B").DataTable.GetUniqueValues("","考试期数") '提取不重复日期

For Each Name As String In Names ' 遍历日期

If Name=Forms("窗口2").controls("DateTimePicker1").text Then '判断日期是否和选定的日期一致

[此贴子已经被作者于2011-6-9 17:20:27编辑过]

谢谢阿!

还有点问题,我改 if嵌套代码改了一天都还是这样.一次会执行两个条件.

Dim n As Integer = Tables("表B").Rows.Count '判断表是否为空
If n = 0 Then
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
Else
Dim Names As List(Of String) = Tables("表B").DataTable.GetUniqueValues("","考试期数")    '提取不重复日期
For Each Name As String In Names                                                    ' 遍历日期
If cdate(Name)= Forms("窗口2").controls("DateTimePicker1").value Then
    Dim dlg As New 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)
    For r As Integer = 0 To Sheet.Rows.Count
        Dim dr As DataRow = DataTables("表B").Find("[考试期数]= '" & Forms("窗口2").controls("DateTimePicker1").value & "' And [姓名] = '" & sheet(r,0).Value & "'")
        If dr IsNot Nothing Then
            dr("语文") = sheet(r,1).Value
        End If
    Next
    End If
Else
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
End If
Next
End If

此主题相关图片如下：2.gif

想出来了第二个其它因为，也有其他情况也执行了．在帮助下找到了怎么再写个判断代码．狐表的帮助的确很强大

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