Per Luigi - Tabelle -

[Blackmore]

Ciao Luigi, questo è un semplice script in tabella che mostra
2 terzine nella stessa cella (divise da un separatore)
esiste una funzione che mi permette di inserire le 2 terzine
sempre nella stessa cella ma... una sotto l'altra ?
Mi sarebbe davvero molto utile

Sub Main
	ReDim at(2)
	Dim anum1(3)
	Dim anum2(3)
	at(1) = " RUOTA "
	at(2) = " 1°TERZINA | 2°TERZINA "
	Call InitTabella(at,,,2,,"arial black")
	For r = 1 To 12
		If r = 11 Then r = 12
		anum1(1) = Format2(1)
		anum1(2) = Format2(2)
		anum1(3) = Format2(3)
		anum2(1) = 10
		anum2(2) = 20
		anum2(3) = 30
		ReDim av(2)
		av(1) = NomeRuota(r)
		av(2) = StringaNumeri(anum1) & "   |   " & StringaNumeri(anum2)
		Call AddRigaTabella(av,,,3,,"arial")
	Next
	Call CreaTabella
End Sub

 

[LuigiB]

ciao Black la cosa piu semplice è agire inserendo i tag html che servono per andare a capo.

Sub Main
	ReDim at(2)
	Dim anum1(3)
	Dim anum2(3)
	Dim aFont(2)
	
	aFont(1) = "Arial"
	aFont(2) = "Courier New"
	

	at(1) = " RUOTA "
	at(2) = " 1°TERZINA " & "<br>" & " 2°TERZINA "
	Call InitTabella(at,,,2,,"arial black")
	For r = 1 To 12
		If r = 11 Then r = 12
		anum1(1) = Format2(1)
		anum1(2) = Format2(2)
		anum1(3) = Format2(3)
		anum2(1) = 10
		anum2(2) = 20
		anum2(3) = 30
		ReDim av(2)
		av(1) = NomeRuota(r)
		'av(2) = StringaNumeri(anum1) & "   |   " & StringaNumeri(anum2)
		av(2) = StringaNumeri(anum1) & "<br>" &  StringaNumeri(anum2)
		
		Call AddRigaTabella(av,,,3,,aFont)
	Next
	Call CreaTabella
End Sub

 

[Roby]

OTTIMO !!!
Mi sarà utilissimo... grazie mille Luigi
Ciao

 

[LuigiB]

se consideri che a forza d tag html dentro una singola cella potresti mettere un 'altra intera tabella ... Ciao

 

[Mike58]

Ottima e utile anche per me questi tag html, se puoi fare un esempio del mettere una intera tabella.
Grazie.

ciao Black, ciao Luigi

 

[LuigiB]

ciao Mike , magari lo faro ma non subito ..in questi giorni ho altre cose ... un saluto