750202_zh-TW

liliconcom

如何使用 JSL 編輯模式對話框窗口

透過 JSL 編輯模式對話框的正確方法是什麼？

想法：

- 功能新增更新按鈕新增資料過濾按鈕

- 如果在建立視窗後執行它則有效

- in the actual use case, the return value of the window is used as input for the subsequent code.
Therefore, <<TYPE><BR /> -> 視窗將在<FONT face="courier new,courier">新增更新按鈕() //post</FONT>執行之前關閉</TYPE>

- I tried to add the <FONT face="courier new,courier">新增更新按鈕()</FONT> via <FONT face="courier new,courier"><< 開啟時 (<BR /></FONT>... without success

<CODE class=" language-jsl">Names Default To Here( 1 );
dt = Open( "$SAMPLE_DATA/Big Class.jmp" );

dt << Add Properties to Table(
	{New Script("reread", JSL Quote(caption("reread ...")),	As String( 1 ))});
	
add update button = function ({},
wait();
Current Report()["Local Data Filter",LineUpBox(1)] <<
append(
	b = Button Box( "update",
		b << close window();
		dt << run script( "reread" );
		ShowQueryWindow();				
	)
));

ShowQueryWindow = Function({},
	gui = New Window( "test", 
	//<<TYPE></TYPE>

<CODE class=" language-jsl"><LINGO-LABS id="lingo-labs-750202" slang="en-US" mode="UPDATE"><LINGO-LABEL>自動化和腳本編寫</LINGO-LABEL></LINGO-LABS>回覆：如何使用 JSL 編輯模式對話框窗口

JMP 18 中的一種方法是使用視窗處理程序。視窗處理程序是一個函數包裝器，可讓您存取在函數執行期間建立的任何視窗。我們正在考慮在即將發布的主要版本中使模態和非模態行為更加一致，這將使將來更容易直接透過 New Window() 函數來完成此操作。

Names Default To Here( 1 );
dt = Open( "$SAMPLE_DATA/Big Class.jmp" );

dt << Add Properties to Table(
	{New Script("reread", JSL Quote(caption("reread ...")),	As String( 1 ))});
	
add update button = function ({win},
win["Local Data Filter",LineUpBox(1)] <<
append(
	b = Button Box( "update",
		b << close window();
		dt << run script( "reread" );
		ShowQueryWindow();				
	)
));

showFilter = Function({},
	With Window Handler(
		New Window( "test", 
			<<TYPE></TYPE>

<P> </P> <P> </P>回覆：如何使用 JSL 編輯模式對話框窗口

嗨@danschikore ，非常感謝
精彩的:)

回覆：如何使用 JSL 編輯模式對話框窗口

您是否嘗試將更新按鈕新增至模式視窗？如果是的話，我不認為模態視窗是報告視窗（它是模態或模態對話框）->以不同的方式建立模態視窗

Names Default To Here(1);

dt = Open("$SAMPLE_DATA/Big Class.jmp");

dt << New Script("reread", JSL Quote(caption("reread ...")), As String(1));


add update button = Function({ref},
	ref["Local Data Filter", Lineup Box(1)] << append(
		b = Button Box("update",
			b << close window();
			dt << run script("reread");
		)
	);
);

showFilter = Function({},
	collector = V List Box(
		dt << data filter(local)
	);
	add update button(collector);
	gui = New Window("test", <<TYPE></TYPE>

<P>我還建議嘗試將 {Default Local} （或定義的變數名稱）添加到您的函數中以避免可能的問題，但這需要一些額外的腳本。</P>