在 QTP/UFT 中的多行运行时添加数据

Question

我想在运行时在多行中添加数据，但它会创建一个新列并向其中添加数据。 我用过下面的代码。

For i = 1 To 2 Step 1
datatable.SetCurrentRow(i)  

Dim f_name,l_name
f_name=Datatable.Value("todayDate","date") + Datatable.Value("MonthName","date")
l_name=datatable.Value("This_Year","date")

Datatable.AddSheet("Emp_name").AddParameter"Emp_first_Name",f_name
Datatable.AddSheet("Emp_name").AddParameter"EMP_Last_Name",l_name

Next

Answer 1

AddParameter 每次都会添加一个新参数 - 这就是您看到重复列的原因。

有很多方法可以解决这个问题 - 一种方法是在循环之前设置表格+标题，然后在循环中添加内容。

例如：

Datatable.AddSheet("Emp_name")
Datatable.GetSheet("Emp_name").AddParameter "Emp_first_Name",""
Datatable.GetSheet("Emp_name").AddParameter "EMP_Last_Name",""

For i = 1 To 2 Step 1
    datatable.SetCurrentRow(i)  
    
    Dim f_name,l_name
    f_name="hello"
    l_name="world"
    
    Datatable.GetSheet("Emp_name").SetCurrentRow i
    Datatable.Value("Emp_first_Name", "Emp_name") = f_name
    Datatable.Value("EMP_Last_Name", "Emp_name") = l_name

Next

Output 看起来像这样：