导入的数据库无法走到下一行

shuishixingyu · 发表于 2009-1-7 10:53:06

Dim mylink,Row,i
DataTable.Import "C:\\Documents and Settings\Administrator\桌面\data.xls"
DataTable.SetCurrentRow(1)
mylink=DataTable.Value("mylink",1)
For i=1 to Datatable.GetRowCount
Browser("中国测试社区 powered by www.3atestin).Page("中国测试社区 powered by www.3atestin").Link("text:="&mylink).Click
DataTable.GetSheet("Global").SetNextRow
Next

只能打开“博客”的网页，而且不知道为什么会循环了4次，打开了4个“博客”的网页
我在action中设了run on all rows 也是如此，请问是为什么？谢谢

jindouguang · 发表于 2009-1-7 11:26:30

你看看你的 xls文件里面的是否多了几行测试数据啊

david208 · 发表于 2009-1-7 11:47:09

mylink=DataTable.Value("mylink",1) 要放到for里
另外一个我吃饭后再说

shuishixingyu · 发表于 2009-1-7 11:50:07

我已经专门在excel中清了下了，还是这样

shuishixingyu · 发表于 2009-1-7 11:53:25

原帖由 david208 于 2009-1-7 11:47 发表
mylink=DataTable.Value("mylink",1) 要放到for里
另外一个我吃饭后再说

"测试视频"的网页能打开了，谢谢啊，但是为什么要放在for里呢？还有个循环问题

david208 · 发表于 2009-1-7 12:32:49

DataTable.Import "C:\\Documents and Settings\Administrator\桌面\data.xls"
改为
DataTable.ImportSheet "C:\\Documents and Settings\Administrator\桌面\data.xls" ,1 ,2

shuishixingyu · 发表于 2009-1-7 13:03:00

原帖由 david208 于 2009-1-7 12:32 发表
DataTable.Import "C:\\Documents and Settings\Administrator\桌面\data.xls"
改为
DataTable.ImportSheet "C:\\Documents and Settings\Administrator\桌面\data.xls" ,1 ,2

改了后，没有反应唉

david208 · 发表于 2009-1-7 13:18:10

DataTable.GetSheet("Global").SetNextRow
改成
DataTable.GetSheet("action1").SetNextRow

shuishixingyu · 发表于 2009-1-7 13:42:11

DataTable.ImportSheet "C:\\Documents and Settings\Administrator\桌面\data.xls" ,1 ,2
没有把excel导入，
DataTable.GetSheet("action1").SetNextRow
打开重复的网页

shuishixingyu · 发表于 2009-1-7 13:48:51

Dim mylink,Row,i

DataTable.Import "C:\\Documents and Settings\Administrator\桌面\data.xls"
DataTable.SetCurrentRow(1)

For i=1 to Datatable.GetRowCount
mylink=DataTable.Value("mylink",1)
Browser("中国测试社区 powered by www.3atestin").Page("中国测试社区 powered by www.3atestin").Link("text:="&mylink).Click
DataTable.GetSheet("Global").SetNextRow
Next

这样可以打开“博客”和“测试视频”的网页，就是会有循环出现2次“博客”和“测试视频”，还有这里很奇怪，用了描述性语言就会出错，说找不到父对象

david208 · 发表于 2009-1-7 14:04:55

不要使用global,用action1.

shuishixingyu · 发表于 2009-1-7 14:38:23

用Action1,还是出来4个“博客”页面

david208 · 发表于 2009-1-7 15:16:20

额你在看看

[ 本帖最后由 david208 于 2009-1-7 16:22 编辑 ]

shuishixingyu · 发表于 2009-1-7 15:39:52

没有反应，也没新网页打开，也没报错，晕了

david208 · 发表于 2009-1-7 16:21:37

嗯，datatable.import导入到global会有问题，导入的行数决定了循环导入的次数！

所以尽量使用action1这种本地的。

Dim mylink,Row,i
DataTable.ImportSheet "C:\\Documents and Settings\Administrator\桌面\data.xls" ,1 ,2
DataTable.SetCurrentRow(1)
for i =1 to Datatable.GetSheet("Action1").GetRowCount
mylink=DataTable.LocalSheet.getparameter("mylink")
Browser("中国测试社区 powered by www.3atestin).Page("中国测试社区 powered by www.3atestin").Link("text:="&mylink).Click
DataTable.getsheet("Action1").SetNextRow
next

这个试下

[ 本帖最后由 david208 于 2009-1-7 16:42 编辑 ]

shuishixingyu · 发表于 2009-1-7 17:11:27

报错，显示

blueeagle9999 · 发表于 2009-1-7 17:13:55

我还出现过读取的数据读了几行后又返回重头开始读，于是我用了下面的办法

for i =1 to Datatable.GetSheet("Action1").GetRowCount
DataTable.SetCurrentRow(i) ‘在这里设置当前行
mylink=DataTable.LocalSheet.getparameter("mylink")
Browser("中国测试社区 powered by www.3atestin).Page("中国测试社区 powered by www.3atestin").Link("text:="&mylink).Click
DataTable.getsheet("Action1").SetNextRow
next

你可以试下，至于它为什么会乱跑行，我还想不清楚。

shuishixingyu · 发表于 2009-1-8 09:04:50

谢谢，david208、blueeagle9999、jindouguang的热心帮助，问题已解决
请问，为什么要把DataTable.SetCurrentRow(i)
放在循环中呢？

lingxin5013 · 发表于 2009-1-8 10:29:39

Dim mylink,Row,i
DataTable.Import "C:\\Documents and Settings\Administrator\桌面\data.xls"
mylink=DataTable.Value("mylink",1)
For i=1 to Datatable.GetRowCount
DataTable.SetCurrentRow(1)
Browser("中国测试社区 powered by www.3atestin).Page("中国测试社区 powered by www.3atestin").Link("text:="&mylink).Click
'DataTable.GetSheet("Global").SetNextRow
Next
'直接运行肯定可以，你的setcurrentrow位置不对

		自动登录	找回密码
密码			(注-册)加入51Testing

[原创] 导入的数据库无法走到下一行

本帖子中包含更多资源

相关帖子

回复 2# 的帖子

11

本帖子中包含更多资源

站长推荐 /1