357759_zh-TW

liliconcom

我該如何組合這些代碼？

你好呀，

我想組合這些程式碼，以便它們從“配方更改審查（新）”運行並關閉新的數據表/製表選項卡，僅留下圖表。

非常感謝任何幫助！

(Data Table( "Formulation Change Review (new)" ) <<
Tabulate(
	Add Table(
		Column Table( Grouping Columns( :Lab RFT ), Statistics( Row % ) ),
		Row Table( Grouping Columns( :Grade ) )
	)
)) << Make Into Data Table


Graph Builder(
	Size( 1896, 951 ),
	Show Control Panel( 0 ),
	Show Legend( 0 ),
	Variables(
		X(
			:Grade,
			Order By( :Name( "Row %(Y)" ), Ascending, Order Statistic( "Mean" ) )
		),
		Y( :Name( "Row %(Y)" ) ),
		Overlay( :Grade )
	),
	Elements( Bar( X, Y, Legend( 6 ), Label( "Label by Value" ) ) ),
	SendToReport(
		Dispatch( {}, "graph title", TextEditBox, {Set Text( "RFT % per grade" )} ),
		Dispatch( {}, "Y title", TextEditBox, {Set Text( "RFT%" )} )

大規模客製化回复：如何合併這些代碼？

未經測試，但將其分成較小的塊，如下所示：

dt1 = Data Table( "Formulation Change Review (new)" );

tab = (dt1 << Tabulate(
 Add Table(
  Column Table( Grouping Columns( :Lab RFT ), Statistics( Row % ) ),
  Row Table( Grouping Columns( :Grade ) )
 )
)) ;

dt2 = tab << Make Into Data Table;

gb = dt2 << Graph Builder(
 Size( 1896, 951 ),
 Show Control Panel( 0 ),
 Show Legend( 0 ),
 Variables(
  X(
   :Grade,
   Order By( :Name( "Row %(Y)" ), Ascending, Order Statistic( "Mean" ) )
  ),
  Y( :Name( "Row %(Y)" ) ),
  Overlay( :Grade )
 ),
 Elements( Bar( X, Y, Legend( 6 ), Label( "Label by Value" ) ) ),
 SendToReport(
  Dispatch( {}, "graph title", TextEditBox, {Set Text( "RFT % per grade" )} ),
  Dispatch( {}, "Y title", TextEditBox, {Set Text( "RFT%" )} );

tab<<CLOSEWINDOW></CLOSEWINDOW>

編輯：在圖形生成器部分的末尾似乎缺少）。 將它們粘貼在一起時，請確保從“保存到腳本”窗口中獲取所有JSL。

編輯2：您可能想要在close（dt2，nosave）之前

gb << journal;
gb<<CLOSEWINDOW></CLOSEWINDOW>

因為圖形生成器報告需要打開表，但是日記本是自包含的。 日記的圖形未連接到數據，因此無法進行行選擇。