- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 求助 ,使用命令 excel合并数据以后 短时间字段不显示 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=177501)
-- 发布时间：2022/5/25 9:13:00
-- 求助 ,使用命令 excel合并数据以后 短时间字段不显示
excel 数据
此主题相关图片如下：excel数据.png
导入后
此主题相关图片如下：导入后.png
实例文件
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:excel数据导入问题.rar |
导入代码 在 txt文件内 使用的是命令窗口执行
-- 发布时间：2022/5/25 9:18:00
--
这种情况要使用vba导：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=65686&skin=0
-- 发布时间：2022/5/25 10:31:00
-- 帮忙看 一下代码 现在时间字段显示的 数值
报错内容
此主题相关图片如下：报错.jpg
报错应该是 时间存入 的时候是 数值造成的,帮忙看一下
代码如下
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:2.txt |
-- 发布时间：2022/5/25 10:43:00
--
Dim ro As Row = Tables("表A").AddNew
For i As Integer = 0 To Tables("表A").Cols.Count - 1
If cs(i) = "日期" Then \'如果是日期列
Dim dt As DateTime = DateTime.FromOADate( ary(n,i+1)) \'把Double值转换为日期
ro(cs(i)) = dt
Else
ro(cs(i))= ary(n,i+1)
End If
Next
-- 发布时间：2022/5/25 11:14:00
-- 报错代码,帮忙看一下
报错代码如下
此主题相关图片如下：报错3.jpg
执行代码如下
-- 发布时间：2022/5/25 12:04:00
--
调试技巧：http://www.foxtable.com/webhelp/scr/1485.htm，看哪一句代码出错