Private tvContracts As TableView
Page2.RootPanel.AddView(tvContracts,0,300,100%x,70%y)
...
If sOldContractNumber<>sContractNumber Then
tvContracts.AddSection(sContractNumber,"")
End If
Dim tc As TableCell=tvContracts.AddSingleLine(sFieldNumber)
tc.IndentationLevel=2
Dim oDetailText As AttributedString
oDetailText.Initialize(sFieldNumber,Font.CreateNew(30),Colors.Blue)
tc.DetailText=oDetailText
tc.Tag=sID
sOldContractNumber=sContractNumber
...
tvContracts.ReloadAll