- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]长日期格式，导入后，后面的时间都变成0了 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=53315)
-- 发布时间：2014/7/4 16:54:00
-- [求助]长日期格式，导入后，后面的时间都变成0了
Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "Excel2003|*.xls|Excel2007|*.xlsx" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Dim Book As New XLS.Book(dlg.FileName)
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Dim x As Integer = 1
Do
Tables("派件明细_本地").Position = Tables("派件明细_本地").AddNew.Index
Tables("派件明细_本地").Current("运单编号") = Sheet(x,0).value
Tables("派件明细_本地").Current("签收时间") = Sheet(x,1).value
Tables("派件明细_本地").Current("派件员") = Sheet(x,2).value
Tables("派件明细_本地").Current("派件员编号") = Sheet(x,3).value
x = x + 1
Loop While Sheet(x,0).value <> ""
Tables("派件明细_本地").Save
End If
以上代码导入后，EXCEL里面是长日期，TABLE的类型是DATELONGTIME,但是执行导入后，
此主题相关图片如下：uz6t~4dr2qbm1v6)f4bw(e.jpg
日期变成 00：00：00这样的时间了，求教如何处理。
-- 发布时间：2014/7/4 17:06:00
--
设置一下列属性类型为 datelongtime 看看
-- 发布时间：2014/7/4 17:06:00
--
参考
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=52272&skin=0
-- 发布时间：2014/7/4 17:07:00
--
哦，是这个
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=52076&skin=0
-- 发布时间：2014/7/4 17:54:00
--
看了，还是不明白
Tables("派件明细_本地").Current("签收时间") = Sheet(x,1).value
这句需要如何改呢？
-- 发布时间：2014/7/4 17:56:00
--
看了，还是不明白
Tables("派件明细_本地").Current("签收时间") = Sheet(x,1).value
这句需要如何改呢？
这个是bug，如果要用 New XLS.Book 去做的话，就要变通一下。
不过建议你直接用vba去获取值比较好 http://www.foxtable.com/help/topics/2121.htm