以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]如何用代码导入XML文件  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=8400)

--  作者:pyh6918
--  发布时间:2010/10/18 17:23:00
--  [求助]如何用代码导入XML文件

如何用代码导入XML文件

请各位帮帮忙

文件样本:

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:135.rar

内容如下:
<?xml version="1.0" encoding="UTF-8"?><report xmlns="http://fitech-report.com/smis" xmlns:xsi="http://www.w3.org/2001/XMLSchema" reportlayer="MAIN" reporttype="POINT"><common><sign><fitechFiller>lll</fitechFiller><fitechChecker>fff</fitechChecker><fitechPrincipal>zzz</fitechPrincipal></sign><fitechTitle>G01统计表</fitechTitle><fitechRange>汇总数据</fitechRange><fitechUnit>万元</fitechUnit><fitechCurrency>人民币</fitechCurrency><fitechSubtitle>G01统计表</fitechSubtitle><fitechVersion>1010</fitechVersion><fitechSubmitYear>2010</fitechSubmitYear><fitechSubmitMonth>9</fitechSubmitMonth></common><data><cellRow>6</cellRow><cellCol>D</cellCol><cellValue>1643.47</cellValue><cellType>浮点型

 

</cellType></data><data><cellRow>86</cellRow><cellCol>F</cellCol><cellValue>111085.51</cellValue><cellType>浮点型

 

</cellType></data><data><cellRow>87</cellRow><cellCol>D</cellCol><cellValue>84142.77</cellValue><cellType>浮点型

</cellType></data><data><cellRow>87</cellRow><cellCol>E</cellCol><cellValue>0.00</cellValue><cellType>浮点型

 

</cellType></data><data><cellRow>87</cellRow><cellCol>F</cellCol><cellValue>84142.77</cellValue><cellType>浮点型

</cellType></data></report>

[此贴子已经被作者于2010-10-19 7:39:51编辑过]

--  作者:pyh6918
--  发布时间:2010/10/18 18:41:00
--  

各位朋友,帮帮忙吧!多谢了!


--  作者:pyh6918
--  发布时间:2010/10/18 20:37:00
--  
自己顶
--  作者:狐狸爸爸
--  发布时间:2010/10/18 20:44:00
--  
Dim dt As Data.DataTable
dt.ReadXML("c:\\data.xml")
Tables("窗口1_Table1").DataSource = dt

--  作者:pyh6918
--  发布时间:2010/10/18 20:48:00
--  
我试试
--  作者:pyh6918
--  发布时间:2010/10/18 21:17:00
--  

老大,真的不好意思,没领会要领,出现下列错误提示:

 


图片点击可在新窗口打开查看此主题相关图片如下:jt.png
图片点击可在新窗口打开查看

--  作者:狐狸爸爸
--  发布时间:2010/10/18 22:09:00
--  
Dim dt As New Data.DataTable
dt.ReadXML("c:\\data.xml")
Tables("窗口1_Table1").DataSource = dt

--  作者:pyh6918
--  发布时间:2010/10/19 7:43:00
--  

老大,又出现了新的提示:

 


图片点击可在新窗口打开查看此主题相关图片如下:bd.png
图片点击可在新窗口打开查看

 


文件如下:

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目28.rar


--  作者:狐狸爸爸
--  发布时间:2010/10/19 8:57:00
--  

你这个XML格式似乎是电子表格的,不是DataTable的,格式不一样,自然不能加载。

 


--  作者:pyh6918
--  发布时间:2010/10/19 9:16:00
--  

但是用系统菜单的XML导入功能可以导入。

 

既然用系统菜单的XML可以导入,我想就可以用代码实现。

 

老大您再费费心!