Page History
...
Code Block |
---|
$insert XO_Equates |
Code Block |
hXO = XOInstance('NWIND') |
Code Block |
if hXO then
hQry = QryInstance(hXO)
if hQry then
flag = QryMethod(hQry, QRY_EXECUTE$, "select companyname from customers order by companyname")
row = ""
results = ""
loop
flag = QryMethod(hQry, QRY_GETROW$, row)
while flag
results<-1> = row
repeat
QryMethod(hQry, QRY_DESTROY$)
end
rv = Set_Property (@window : '.COMPANIES', 'LIST', results)
XOMethod(hXO, XO_DESTROY$)
end |