表名ls_xm 内容
id ck
1 w_sheet
2 w_maintain_department
3 w_menu
4 w_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