怎么删除行

fqbts

datatable中怎么删除一行？求vbs脚本，谢谢！

bichenlu

用DataTable.DeleteSheet方法

fqbts

deletesheet是删除页的，我想删除行

正在更新

没发现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

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

正在更新

回复 5# fqbts


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

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

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

shanfeng1419

来看看

fqbts

试了，用cstr()不行，在excel格子的日期前加 ‘ 可以，但不想这么干，不知有没有别的办法。