这条语句出错--datatable(j,"Global")=nValue

FLY000

For i=3 to nRow
        For j=1 to nColumn
                nValue=Browser("登录服务器").Page( "BI@Report在线演示系统").Frame( "Frame").WebTable("妇保院等级亏损次数").GetCellData(nRow,nColumn)
                datatable.SetCurrentRow(nCurrent)
                datatable(j,"Global")=nValue
                nCurrent=datatable.SetPrevRow
        Next
Next

我想把取出来的值nValue写进DATATABEL的GLOBAL表,
datatable(j,"Global")=nValue
但是程序执行时提示The set DataTable.Value operation failed. The specified parameter index value: "1" does not exist in the data sheet.

zte_boy

写错了，呵呵

[ 本帖最后由 zte_boy 于 2008-5-22 14:55 编辑 ]

zte_boy

先在runtime中增加一列
DataTable.GlobalSheet.AddParameter "列名", ""
然后去循环赋值

xiaonan

datatable("j","Global")=nValue
列名 j  上少了两个引号

FLY000

不对哦

FLY000

For i=3 to nRow
        For j=1 to nColumn
                text=Browser("登录服务器").Page( "BI@Report在线演示系统").Frame("Frame").WebTable("妇保院等级亏损次数").GetCellData(i,j)
                DataTable.Value(chr(j+64),"Global")=text
                datatable.SetNextRow
        Next
Next

我改成这样就可以了,但问题是都写到一行去了,他的行数不能下移.datatable.SetNextRow这个语句没用

arthur766

DataTable(j,dtGlobalSheet) = nValue
?

zte_boy

你都没告诉语句当前行在哪里。。。。。

FLY000

For i=3 to nRow
        For j=1 to nColumn
                DataTable.GetSheet("Global").SetCurrentRow(i-2)
                text=Browser("登录服务器").Page( "BI@Report在线演示系统").Frame("Frame").WebTable("妇保院等级亏损次数").GetCellData(i,j)
                DataTable.Value(chr(j+64),"Global")=text
                datatable.GetSheet("Global").SetNextRow
        Next
Next

FLY000

这样写就可以了