table box able to plot in report but when\ save it in interactive html , the table dissapear

kuannygoh

Hi all , 

I have a problem here , my table box able to plot in report but when i save it in interactive html , the table dissapear

 

Source code 

Data Table To Table Box = Function({dt},{Default Local},
	
	tb = Table Box();
	For (i=1,i<=NCols(dt),i++,
		col = Column(dt,i);
		colName = col << Get Name;
		lstValues = col << Get Values;
		type = col << Get Data Type;
		If (type=="Character",
			tb << Append(
				String Col Box(colName,lstValues)
			)
		,
			tb << Append(
				Number Col Box(colName,lstValues)
			)
		);
	);
	Return(tb);
	
);




New Window( "Example",
	nwbb = Tab Box(
		Tab Page Box(
			"Step 1",
			TB = Tab Box(
				Tab Page Box(
					"Summary",
					Table Box(
						Data Table To Table Box(dt)
					)
				),
				Tab Page Box(
					"Pareto Chart",
					ob1 = Outline Box( "Pareto Chart",
						dt << Distribution( Column( :Height, :Weight ), By( :sex ) )
					)
				)
				
			)
		)
	)
);

 

Jeff_Perkinson

Due respect to Jim, but interactive HTML will handle user-generated, custom Table Boxes. The problem here is that you've got a Table Box within a Table Box in your construction. Your function "Data Table To Table Box" returns a table box and then you wrap that in a Table Box():

 

Table Box( Data Table To Table Box(dt) )

Just remove the outer Table Box() and your code works and can be saved as interactive HTML.