以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]新人求助，EXCEL的导入  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=82697)
--  作者：向玥如
--  发布时间：2016/3/23 9:48:00
--  [求助]新人求助，EXCEL的导入
 
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:导入测试.xls



表格设计为SHEET2的目标表格式，
导入数据为SHEET1的数据来源表


请问如何将导入的数据自动匹配到目标表中？图片点击可在新窗口打开查看
大侠们~HELP ME 
--  作者：大红袍
--  发布时间：2016/3/23 9:53:00
--  

 看看

 

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

 
--  作者：大红袍
--  发布时间：2016/3/23 10:05:00
--  
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)
    Dim dt As DataTable = DataTables("目标表")
    dt.StopRedraw()
   
    Dim pidx As Integer = -1
    For n As Integer = 1 To Sheet.Rows.Count -1
        If sheet(n, 0).Text > "" Then
            pidx = n
        End If
        Dim fdr As DataRow = dt.find("姓名 = \'" & sheet(pidx, 0).Text & "\' and 工号 = \'" & sheet(pidx,1).text & "\'")
        If fdr Is Nothing Then
            fdr = dt.AddNew()
            fdr("姓名") = sheet(pidx, 0).text
            fdr("工号") = sheet(pidx, 1).Text
        End If
        Dim cname As String = sheet(n, 2).Text & "成绩"
        If dt.datacols.Contains(cname) Then
            fdr(cname) = sheet(n, 3).Text
        end if
    Next
    dt.ResumeRedraw()
End If
--  作者：向玥如
--  发布时间：2016/3/24 9:43:00
--  
版主 大好人！