关于限制只打开一次SHEET的问题。

[2sword]

TreeViewItem tvi_clicked
datastore dts_opt //操作的权限
string ls_data,ls_title,ls_openwindow //双击的内容
THIS.getitem( handle, tvi_clicked)
IF tvi_clicked.data<>"" THEN //有菜单定义的
ls_data=string(tvi_clicked.data)
ls_title=mid(tvi_clicked.label,7)
dts_opt=create datastore
dts_opt.dataobject="d_option2"
dts_opt.settransobject( SQLCA)
dts_opt.retrieve(gus_pub.gl_group,ls_data)
IF SQLCA.sqlcode<>0 THEN
messagebox("提示","功能项目授权错误！请与系统管理员联系！",exclamation!)
return
END IF

SELECT LSOPENWINDOW into :ls_openwindow FROM SYS_GROUP_01,OPLIST
WHERE SYS_GROUP_01.STATU='1' AND
OPLIST.lsSTATU='1' AND SYS_GROUP_01.LSNUM01=OPLIST.LSNUM AND
SYS_GROUP_01.GRPNUM01=:gus_pub.gl_group AND
SYS_GROUP_01.LSNUM01=:ls_data using SQLCA;

IF SQLCA.sqlcode<>0 THEN
messagebox("提示","功能项目意外被停止！请与系统管理员联系！",exclamation!)
return
END IF
//opensheet(w_sp_class_finding,w_main,2,original!) Layered!平铺 original 原有状态
window child
//IF FindwindowA(0,ls_title)=0 THEN
OpenSheetWithParm(child, dts_opt, ls_openwindow, w_main,4, original!) //本行？
//ELSE
// Open(child,ls_openwindow,w_main)
// END IF
END IF
"ls_openwindow "是从数据库中载入的窗体名称，通过这段代码后，总是能打开很多个这样的窗口，如何限制它只打开一次，下次再打开时，自动将已打开的窗体变为ACTIVE状态？

[wjlforever]

你可以先关闭，再打开！

或者设置个全局变量flag
if flag = 0 then
打开
flag = 1
else
return
end if

[2sword]

我要它保存不关闭呀，要关闭了还有什么意义呀！