table not open error

[boba]

I have the following function in a class which I call 2 times when executing an xdialog to load items in 2 dropdown lists in the xdialog form. Every other time I run the xdialog I get a message at the tp.fetch_first() line that the "table is not open". In other words, I run it and it works. I run it again and this error appears. I'm closing the table after getting the record count. I even tried deleting the table pointer, but this didn't work. Is there something else I should do with the table pointer? Any idea on why this message occurs every 2nd time I run my xdialog?

Thanks,
BobA

function GetLookupList as c (tablename as c, fieldlist as c, filter as c, sort as c)
dim tp as p
dim cnt as n

'get number of records in table to set array size
tp = table.open(tablename)
tp.fetch_first()
cnt = tp.records_get()
tp.close()

'load table into array and dump it's properties (array as type 'p') into a list
dim arr[cnt] as p
arr.initialize_from_table(tablename,filter,sort)
GetLookupList = arr.dump_properties(fieldlist)
end function

[MikeC]

Re: table not open error

Bob,
out of context doesn't help. Function runs fine no matter how many times it runs so without having the rest of the script that this function is called from and produces the error how are we (me) supposed to help? :) More than happy to help but believe me it is hard to give TOO much information so always give as much as possible.

[martinwcole]

Re: table not open error

try the following, for which you don't need a function
tablename="products"
n=tablecount(tablename,".t.")
or
n=tablecount("products",".t.")

[boba]

Re: table not open error

Thanks for your replies. I'm not getting the error now.

I'm finding that when things aren't working right for reasons unexplained it's good to exit and reload Alpha and test again. Sometimes that's enough to make errors go away. Not sure if it's a bug or a Vista compatibility issue or something else.

Thanks Martin for the TABLECOUNT tip. I found and used TABLEMAX today for the first time. I didn't know about these 'lookup table' type functions and haven't seen them used in Alpha's examples. Now that I know about them I will definitely add them to my stock of ammo.

Regards,
BobA