51Testing软件测试论坛

标题: 怎么删除行 [打印本页]

作者: fqbts 时间: 2012-6-12 11:27
标题: 怎么删除行
datatable中怎么删除一行？求vbs脚本，谢谢！

作者: bichenlu 时间: 2012-6-12 12:04
用DataTable.DeleteSheet方法

作者: fqbts 时间: 2012-6-12 12:22
deletesheet是删除页的，我想删除行

作者: 正在更新 时间: 2012-6-12 14:27
没发现QTP封装了删除行的方法，可以自己实现
给你写了一个函数自己调试一下

intDelRowNum=3

intParameterCount=1

msgbox DelSpecifiedRow(intParameterCount,intDelRowNum)

Function  DelSpecifiedRow(intParameterCount,intDelRowNum)

DelSpecifiedRow="Delete Fail"

  If  intParameterCount <>0 Then

   Dim arrValue()

ReDim arrValue(intParameterCount-1)

datatable.SetCurrentRow intDelRowNum

For i=intDelRowNum  to datatable.GetRowCount

   datatable.SetNextRow

   For  k=1  to intParameterCount

arrValue(k-1)=datatable.RawValue(k,"Global")

   Next

datatable.SetPrevRow

   For k=1 to intParameterCount

datatable.Value(k,"Global")=arrValue(k-1)

   Next

datatable.SetNextRow

Next

DelSpecifiedRow="Delete Successful"

End If

End Function

作者: fqbts 时间: 2012-6-12 15:28
好的，多谢！另外问个问题，把excel导入到datatable中，有个格子是1900-1-1,导入后变成1899-12-31，日期自动少了一天，怎么回事？多谢！

作者: 正在更新 时间: 2012-6-12 20:15
回复 5# fqbts

如果EXCEL单元格存在日期最好用EXCEL函数获取日期，如 =today()

单元格设置为“常规”，调用Excel后输出的值用 cstr()将值格式化为字符串然后在写入到 datatable

不知道这是否可行你试试吧我机器没QTP 无法调试

作者: shanfeng1419 时间: 2012-6-13 08:52
来看看

作者: fqbts 时间: 2012-6-14 13:56
试了，用cstr()不行，在excel格子的日期前加 ‘ 可以，但不想这么干，不知有没有别的办法。

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)