以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]告诉导入为什么不能导入时间跟小数?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=135742)

--  作者:zto001
--  发布时间:2019/6/2 18:02:00
--  [求助]告诉导入为什么不能导入时间跟小数?
[求助]告诉导入为什么不能导入时间跟小数?
--  作者:有点甜
--  发布时间:2019/6/3 8:57:00
--  

1、合并 http://www.foxtable.com/webhelp/scr/2334.htm

 

2、你要把日期列改成长日期格式

 

3、上传具体实例说明你的问题

 

 


--  作者:zto001
--  发布时间:2019/6/5 9:04:00
--  

1、合并 http://www.foxtable.com/webhelp/scr/2334.htm

这个如果我要按照标题相对应合并,顺序是乱的,如何写?


--  作者:有点蓝
--  发布时间:2019/6/5 10:34:00
--  
比如:

Dim s1 As new List(of String)
For Each r As Col In Tables("SubjectList").Cols
    s1.Add(r.Name)
Next
Dim Book As New XLS.Book("c:\\test\\订单.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Dim dict As new Dictionary(of String,Integer)
Tables("订单").StopRedraw()

For m As Integer = 0 To Sheet.Cols.Count - 1
    If s1.Contains(Sheet(0,m)) Then
        dict.add(Sheet(0,m),m)
    End If
Next

\'注意下面的循环变量从1开始,而不是从0开始,因为Excel表的第一行是标题
For n As Integer = 1 To Sheet.Rows.Count -1
    Dim r As Row = Tables("订单").AddNew()
    For Each key As String In dict.Keys
        r(key) = Sheet(n,dict(m1)).Value
    Next
Next
Tables("订单").ResumeRedraw()

--  作者:zto001
--  发布时间:2019/6/9 9:15:00
--  

XLS.cell  无法转换为 String。这是为什么?

 


--  作者:有点甜
--  发布时间:2019/6/9 10:13:00
--  

Dim s1 As new List(of String)
For Each r As Col In Tables("SubjectList").Cols
    s1.Add(r.Name)
Next
Dim Book As New XLS.Book("c:\\test\\订单.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Dim dict As new Dictionary(of String,Integer)
Tables("订单").StopRedraw()


For m As Integer = 0 To Sheet.Cols.Count - 1
    If s1.Contains(Sheet(0,m).text) Then
        dict.add(Sheet(0,m).text,m)
    End If
Next


\'注意下面的循环变量从1开始,而不是从0开始,因为Excel表的第一行是标题
For n As Integer = 1 To Sheet.Rows.Count -1
    Dim r As Row = Tables("订单").AddNew()
    For Each key As String In dict.Keys
        r(key) = Sheet(n,dict(n)).Value
    Next
Next
Tables("订单").ResumeRedraw()

 

或者看看 http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=101056&skin=0

 


--  作者:zto001
--  发布时间:2019/6/10 16:04:00
--  

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

这个链接上的我知道但是他只能按照Excel表的顺序导,如果Excel表的顺序不是foxtable的顺序,就会出错

你写的代码实在不会,老出错


--  作者:有点甜
--  发布时间:2019/6/10 16:07:00
--  

 

上传具体实例说明你的问题