doubleclicked()事件:(實作同一表單,不管雙擊N次,僅打開些表單一次)
String ls_id,ls_runflag,ls_runproc
TreeViewItem tvi_item
window w_run
GetItem(handle,tvi_item)
ls_id=tvi_item.data
SELECT runflag,runproc INTO :ls_runflag,:ls_runproc FROM SYS_menu WHERE SYS_menu.id = :ls_id;
if ls_runflag="0" or ISnull(ls_runflag) then return
//IF IsValid(w_run) = FALSE THEN Open(w_run)
OpenSheet(w_run,ls_runproc,w_wmain,0,Original!)
想在OpenSheet中多個判斷如IF IsValid(w_run) = FALSE THEN Open(w_run)不知該如何加,請指教,謝謝
uj5u.com熱心網友回復：
老OPEN 干嘛 可以嘗試下 重繪 w_run 里的資料啊uj5u.com熱心網友回復：
把w_run設定成Instance變數試試!uj5u.com熱心網友回復：
思路：回圈檢查所有打開的表單，判斷類名是否存在
window w_obj,w_run
boolean lb_isHave=false
w_obj = GetFirstSheet()
if IsValid(w_obj) then
do
if ClassName(w_obj) = Lower(ls_runproc) then
lb_isHave = true
exit
end if
w_obj = GetNextSheet(w_obj)
loop while IsValid(w_obj)
end if
if not lb_isHave then OpenSheet(w_run, ls_runproc, w_wmain, 0, Original!)
轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/103554.html
標籤：API 調用
上一篇：Internet Transfer 控制元件 報錯 問題
下一篇：如何實作一個樹狀結構？