能否用循环实现以下功能,该怎么解决

能否用循环实现以下功能
表名ls_xm 内容
idck
1w_sheet
2w_maintain_department
3w_menu
4w_ls
..............................

能否提取表里的数据实现如下功能
Choose Case data
Case '1' 
OpenSheet(w_sheet, w_main, 3, Original!)
Case '2' 
OpenSheet(w_maintain_department, w_main, 3, Original!)
Case '3' 
OpenSheet(w_menu, w_main, 3, Original!)
..........

[解决办法]
window w_sheet
string mywin

select ck into :mywin from ls_xm where id=1;
if len(mywin)>0 then
opensheet(w_sheet,mywin,w_main,3,Original!)
end if