如何在数据表中取值

claude

With Dialog("Login")
        .WinEdit("Agent Name:").Set "mercury"
        .WinEdit("Agent Name:").Type  micTab
        .WinEdit("Password:").SetSecure "44cb1705bb008103e0ff54f59b05d775ad83b839"
        .WinButton("OK").Click
End With
With Window("Flight Reservation")
        .WinObject("Date of Flight:").Type "083008"
        .WinComboBox("Fly From:").Select "Denver"
        .WinComboBox("Fly To:").Select "Los Angeles"
        .WinButton("FLIGHT").Click
        .Dialog("Flights Table").WinList("From").Activate "5709   DEN   05:21 PM   LAX   06:19 PM   USA   $106.00"
       
        datatable.AddSheet("name")
        datatable.ImportSheet "d:\temp.xls",1,"name"
        msgbox DataTable.GetSheet ("name").GetCurrentRow
   DataTable.GetSheet("name").SetNextRow
   msgbox DataTable.GetSheet ("name").GetCurrentRow
   msgbox DataTable.GetSheet("name").GetCurrentValue
   'msgbox DataTable.GetSheet ("name").value
   ' .WinEdit("Name:").Set DataTable.GetSheet("name").
        .WinEdit("Name:").Set "panda"
        .WinButton("Insert Order").Click
End With

怎么把单元格的值取出来呀?气死了.唉

claude

我是想问怎么能赋值给程序.比方说赋给一个textbox?谢谢

guolm1225

For i=1 to Datatable.GetRowCount
DataTable("date", dtGlobalSheet)
datatable.GlobalSheet.SetNextRow   '将指针指向下一条数据
Next
这样的值是存放在QTP的DataTable里面的，列名为date。

claude

这样的话值是存在"date"里了么?

xiaonan

哪边数据表取值啊?怎么都不不说清楚.是从DataTable里取吗?
For i=1 to Datatable.GetRowCount
DataTable("date", dtGlobalSheet)
datatable.GlobalSheet.SetNextRow   '将指针指向下一条数据
Next