以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于合并加载数据问题，求教老师！  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=53440)
--  作者：xrrzzy56
--  发布时间：2014/7/8 8:59:00
--  关于合并加载数据问题，求教老师！
想同时从三个文件夹：“文件夹1”、" 文件夹2 "、"文件夹3"中的“表1.xls”向foxtable"表A"中以下列方式合并加载新数据：

Dim Book As New XLS.Book("c:\\文件夹1\\表1.xls") 
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Tables("表A").StopRedraw()
Dim nms() As String = {"第一列","第二列","第三列"} 
For n As Integer = 1 To Sheet.Rows.Count -1 
    Dim bh As String = sheet(n,0).Text 
    If DataTables("表A").Find("第一列 = \'" & bh & "\'") Is Nothing Then 
        Dim r As Row = Tables("表A").AddNew()
        For m As Integer = 0 To nms.Length - 1
            r(nms(m)) = Sheet(n,m).Value
        Next
    End If
Next
Tables("表A").ResumeRedraw()

向专家老师求编码，多谢了哟！
--  作者：Bin
--  发布时间：2014/7/8 9:00:00
--  
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=53434

这个问题? 1楼仁兄已经回复你了.

搞不定,把Excel文件和狐表文件发上来.
--  作者：有点甜
--  发布时间：2014/7/8 9:10:00
--  
 你试试把表A的第一列、第二列、第三列，都弄成字符串列，就不会报错了，具体原因看2楼。
--  作者：xrrzzy56
--  发布时间：2014/7/8 9:27:00
--  
我发的代码倒没问题的，但只能从一个"文件夹1"中"表1.xls"合并加载数据，现在想同时从多个文件夹(还要从“文件夹2”和“文件夹3”中的"表1.xls")中合并加载新数据，求大师给代码！
--  作者：Bin
--  发布时间：2014/7/8 9:30:00
--  
dim files as string()={"c:\\文件夹1\\表1.xls","c:\\文件夹2\\表1.xls","c:\\文件夹3\\表1.xls"}
Tables("表A").StopRedraw()
for each file as string in files 
Dim Book As New XLS.Book(file) 
Dim Sheet As XLS.Sheet = Book.Sheets(0)

Dim nms() As String = {"第一列","第二列","第三列"} 
For n As Integer = 1 To Sheet.Rows.Count -1 
    Dim bh As String = sheet(n,0).Text 
    If DataTables("表A").Find("第一列 = \'" & bh & "\'") Is Nothing Then 
        Dim r As Row = Tables("表A").AddNew()
        For m As Integer = 0 To nms.Length - 1
            r(nms(m)) = Sheet(n,m).Value
        Next
    End If
Next
next
Tables("表A").ResumeRedraw()
--  作者：xrrzzy56
--  发布时间：2014/7/8 9:44:00
--  
谢大神“Bin”了！