我的 launchWin 視窗由互動式按鈕框組成。 但是,當我按下按鈕時,視窗不會關閉。 我不知道為什麼。 我以為按鈕應該在點擊後自動關閉
我有以下程式碼:
//設定工作表為目前表,注意哪個表在最上面
dt = 當前資料表();
//按BOX ID建立每個盒子中總等分試樣的摘要
sumdt = dt << 摘要(
組(:BOX ID),
Sum( :Name( "等份數" ) ),
頻率(“無”),
重量(“無”)
);
//計算每個框中的可用空間並分配給新的列
col5 = sumdt << 新列(“FreeSpace”,資料型別(數字),
公式(
96 - :Name("總和(等分部分的數量)")
)
);
//按新列對新表進行排序
sumdt << 排序(By(:FreeSpace), 順序(降序), 替換表);
box10 = sumdt[索引(1,10), 1];
row10 = sumdt[索引(1,10), 4];
關閉(sumdt,nosave);
launchWin = 新視窗( "啟動器",
<<莫代爾,
V 列錶框(
陣容框( N 列( 4 ), 間距( 20 ),
//檢查空閒空間
按鈕框(“檢查空間”,
新視窗(“可用空間”,
桌盒(
Number Col Box("盒子 ID", box10),
Number Col Box("可用插槽", row10)
)
)
),
//取消
按鈕框(“取消”,投擲(1))
),
)
);
如果按鈕框被命名為“確定”,它將自動關閉。 但是您已經使用自己的名稱創建了自己的按鈕,這完全沒問題,但是自訂按鈕只會執行您告訴它執行的操作。
有兩種方法可以新增關閉按鈕視窗的功能。 一種是將按鈕框分配給變量,然後在按鈕腳本中向其發送關閉視窗訊息:
b=Button Box( "Check Space",
New Window( "Available Spaces",
Table Box( Number Col Box( "Box ID", box10 ), Number Col Box( "Available Slot", row10 ) )
);
b<<CLOSE window=""></CLOSE>
或者,您可以為按鈕指派一個函數,並避免將變數新增至全域命名空間:
Button Box( "Check Space",
<<SET function=""></SET>
哈特哈,
梅蘭妮