763081_zh-TW

liliconcom

如何取得資料表中的標題框值？

在隨附的範例資料表中，已儲存的腳本繪製了下面貼上的圖表。

我想取得資料表中的標題框值，其中第一列包含 TestStage 編號，第二列包含標題框值。如何透過 JSL 執行此操作？

如果我可以動態產生資料表，例如，一旦我透過本機資料篩選器選擇了幾週，就可以透過點擊圖形產生器視窗中的按鈕來產生資料表，這將更加有用。這可以透過 JSL 實現嗎？

自動化和腳本編寫視窗回覆：如何取得資料表中的標題框值？

您考慮過使用製表嗎？

Names Default To Here(1);

dt = Open("$DOWNLOADS/example_DataTable.jmp");

nw = New Window("",
	Data Filter Context Box(
		H List Box(
			dt << Data Filter(Local,
				Add Filter(
					columns(:TestWk),
					Modeling Type(:TestWk, Nominal),
					Where(
						:TestWk == {19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32}
					),
					Display(:TestWk, Find(Set Text("")))
				)
			),
			gb = dt << Graph Builder(
				Size(744, 332),
				Show Control Panel(0),
				Variables(X(:TestWk), Y(:Median), Group Y(:TestStage)),
				Elements(
					Points(X, Y, Legend(8)),
					Caption Box(X, Y, Legend(10), Summary Statistic("N"))
				),
				SendToReport(Dispatch({}, "TestWk", ScaleBox, {Label Row(Show Major Grid(1))}))
			),
			tab = dt << Tabulate(Show Control Panel(0), Add Table(Row Table(Grouping Columns(:TestStage))))
		)
	)
);

如果這還不夠，您可以新增按鈕將表格轉換為資料表（並在必要時隱藏表格）。

回覆：如何取得資料表中的標題框值？

@jthi謝謝，我得到了你的建議，適合我的實際案例。如果可能的話，我想控制另外兩件事。

如何將桌子上的“N”（藍色箭頭）更改為“已測試”之類的內容？

如何刪除圖表和表格下方的文字（下面用紅圈圈出）？

另外，如何得到「N」的總和？

回覆：如何取得資料表中的標題框值？

我不知道如何輕鬆地將其隱藏在表格中，因為它似乎是根據某些東西重新創建它的（當你有太大的Where語句時，它會將其添加回來或一些奇怪的東西）。您可以使用過濾器更改處理程序來完成此操作，但我會盡力避免這種情況（我寧願保留“Where”文本，而不是開始弄亂這些文本）。

Names Default To Here(1);

dt = Open("$DOWNLOADS/example_DataTable.jmp");

nw = New Window("",
	Data Filter Context Box(
		H List Box(
			dt << Data Filter(Local,
				Add Filter(
					columns(:TestWk),
					Modeling Type(:TestWk, Nominal),
					Where(
						:TestWk == {19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32}
					),
					Display(:TestWk, Find(Set Text("")))
				)
			),
			gb = dt << Graph Builder(
				Size(744, 332),
				Show Control Panel(0),
				Variables(X(:TestWk), Y(:Median), Group Y(:TestStage)),
				Elements(
					Points(X, Y, Legend(8)),
					Caption Box(X, Y, Legend(10), Summary Statistic("N"))
				),
				SendToReport(Dispatch({}, "TestWk", ScaleBox, {Label Row(Show Major Grid(1))}))
			),
			tab = dt << Tabulate(
				Change Item Label(Statistics(N, "Die tested")),
				Show Control Panel(0),
				Add Table(Column Table(Statistics(N)), Row Table(Grouping Columns(:TestStage)))
			)
		)
	)
);
wait(0);
(nw << XPath("//TextBox[contains(text(), 'Where(')]")) << Visibility("Collapse");

回覆：如何取得資料表中的標題框值？

@jthi謝謝，我不介意 JMP 中的 where 語句，但是當將圖表複製到其他 Windows 應用程式時，我寧願不使用它們。

是否可以在表格下方顯示“N”（即測試的晶片總數）的總和？

回覆：如何取得資料表中的標題框值？

您可以新增額外的 V 列錶框來包裝圖形產生器和製表

看更多...

Names Default To Here(1);

dt = Open("$DOWNLOADS/example_DataTable.jmp");

nw = New Window("",
	Data Filter Context Box(
		H List Box(
			dt << Data Filter(Local,
				Add Filter(
					columns(:TestWk),
					Modeling Type(:TestWk, Nominal),
					Where(
						:TestWk == {19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32}
					),
					Display(:TestWk, Find(Set Text("")))
				)
			),
			V List Box(
				gb = dt << Graph Builder(
					Size(744, 332),
					Show Control Panel(0),
					Variables(X(:TestWk), Y(:Median), Group Y(:TestStage)),
					Elements(
						Points(X, Y, Legend(8)),
						Caption Box(X, Y, Legend(10), Summary Statistic("N"))
					),
					SendToReport(Dispatch({}, "TestWk", ScaleBox, {Label Row(Show Major Grid(1))}))
				),
			)
		)
	)
);

回覆：如何取得資料表中的標題框值？

@jthi謝謝，但不要使用您的腳本在我的 JMP 16 中獲取 V 列錶框。

另外，在本例中，我所說的總和是指圖表上顯示的數值 14 (2+2+3+3+2+2)。

回覆：如何取得資料表中的標題框值？

您可以為此使用單獨的表格

看更多...

Names Default To Here(1);

dt = Open("$DOWNLOADS/example_DataTable.jmp");

nw = New Window("",
	Data Filter Context Box(
		H List Box(
			dt << Data Filter(Local,
				Add Filter(
					columns(:TestWk),
					Modeling Type(:TestWk, Nominal),
					Where(
						:TestWk == {19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32}
					),
					Display(:TestWk, Find(Set Text("")))
				)
			),
			V List Box(
				gb = dt << Graph Builder(
					Size(744, 332),
					Show Control Panel(0),
					Variables(X(:TestWk), Y(:Median), Group Y(:TestStage)),
					Elements(
						Points(X, Y, Legend(8)),
						Caption Box(X, Y, Legend(10), Summary Statistic("N"))
					),
					SendToReport(Dispatch({}, "TestWk", ScaleBox, {Label Row(Show Major Grid(1))}))
				),
				tab2 = dt << Tabulate(Show Control Panel(0), Add Table(Column Table(Statistics(N))))
			),
			tab = dt << Tabulate(
				Change Item Label(Statistics(N, "Die tested")),
				Show Control Panel(0),
				Add Table(Column Table(Statistics(N)), Row Table(Grouping Columns(:TestStage)))
			)
		)
	)
);
wait(0);
(nw << XPath("//TextBox[contains(text(), 'Where(')]")) << Visibility("Collapse");