51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 1543|回复: 7
打印 上一主题 下一主题

[原创] 怎么删除行

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2012-6-12 11:27:40 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
datatable中怎么删除一行?求vbs脚本,谢谢!
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
发表于 2012-6-12 12:04:12 | 只看该作者
用DataTable.DeleteSheet方法
回复 支持 反对

使用道具 举报

该用户从未签到

3#
 楼主| 发表于 2012-6-12 12:22:10 | 只看该作者
deletesheet是删除页的,我想删除行
回复 支持 反对

使用道具 举报

该用户从未签到

4#
发表于 2012-6-12 14:27:23 | 只看该作者
没发现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
回复 支持 反对

使用道具 举报

该用户从未签到

5#
 楼主| 发表于 2012-6-12 15:28:41 | 只看该作者
好的,多谢!另外问个问题,把excel导入到datatable中,有个格子是1900-1-1,导入后变成1899-12-31,日期自动少了一天,怎么回事?多谢!
回复 支持 反对

使用道具 举报

该用户从未签到

6#
发表于 2012-6-12 20:15:00 | 只看该作者
回复 5# fqbts


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

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

  不知道这是否可行  你试试吧 我机器没QTP 无法调试
回复 支持 反对

使用道具 举报

  • TA的每日心情
    擦汗
    2017-2-4 09:49
  • 签到天数: 145 天

    连续签到: 1 天

    [LV.7]测试师长

    7#
    发表于 2012-6-13 08:52:33 | 只看该作者
    来看看
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    8#
     楼主| 发表于 2012-6-14 13:56:13 | 只看该作者
    试了,用cstr()不行,在excel格子的日期前加 ‘ 可以,但不想这么干,不知有没有别的办法。
    回复 支持 反对

    使用道具 举报

    本版积分规则

    关闭

    站长推荐上一条 /1 下一条

    小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

    GMT+8, 2024-11-14 03:38 , Processed in 0.064236 second(s), 26 queries .

    Powered by Discuz! X3.2

    © 2001-2024 Comsenz Inc.

    快速回复 返回顶部 返回列表