- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]小白求教，excel导如 foxtable里，格式不对求教！ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=67887)
-- 发布时间：2015/5/5 16:34:00
-- [求助]小白求教，excel导如 foxtable里，格式不对求教！
数据文件EXCEL ， 全数字列导入会“丢失”数据怎么个解决？ 比如excel “周期列是【1.3456.】就可以，【1234567】就不行。
excel 列设置文本也不行，foxtable先建立框架然后【合并数据】方法导入excel也不行！
-- 发布时间：2015/5/5 16:34:00
--
编码合并数据
-- 发布时间：2015/5/6 11:17:00
--
1请问：excel表单时间部分是“H:mm:ss”,带入foxtable后显示00:00:00！excel怎么去掉ss？或带入时过滤~？
2、如上方法如何做到“自选目录文件“？ 自己瞎写一下 路径名等如何做？
Dim dlg As New OpenFileDialog
dlg.Filter= "Excel文件|*.xls"
If dlg.ShowDialog = DialogResult.Ok Then ’如何做到 自选文件导入？
Dim Book As New XLS.Book("dlg.FilePath & ”“\\”“ &dlg.FileName") ‘是这样表达路径么？
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Tables("sheet1").StopRedraw()
Dim nms() As String = { "Flt Desg","Eff Date","Dis Date","Freq","Dept Arp","Dept Time","Arrv Time","Arvl Arp","Subfleet" }
For n As Integer = 1 To Sheet.Rows.Count -1
Dim r As Row = Tables("sheet1").AddNew()
For m As Integer = 0 To nms.Length - 1
r(nms(m)) = Sheet(n,m).Value
Next
Next
End If
Tables("sheet1").ResumeRedraw()
-- 发布时间：2015/5/6 11:29:00
--
可以参考这个例子
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=65686&skin=0
-- 发布时间：2015/5/6 11:40:00
--
有点意思~~~我试试
-- 发布时间：2015/5/6 13:39:00
--
excel 时间部分是”H:mm:ss“格式 ，foxtable 时间列是“日期时间 【LongTime】”，导入提示“ Double”到类型“Date”的转换无效
-- 发布时间：2015/5/6 13:44:00
--
弹出一下看看 从Excel取出来的值的Value是什么. 如果不是正常值,修改拼接为正常值.
-- 发布时间：2015/5/6 14:16:00
--
excel 时间列是“长时间”，foxtable时间列也是“长时间”导入就提示“ Double”到类型“Date”的转换无效！
如果foxtable时间列设置 字符型 255宽度，那么得到“0.336805555555556” ！
此主题相关图片如下：11111.jpg
-- 发布时间：2015/5/6 14:17:00
--
让你弹出一下看看咯. 或者上个例子.
-- 发布时间：2015/5/6 14:30:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目2.foxdb |
