sub addcell
Dim p As Panel
p.Initialize("")
p.Width = 100%x
p.Height = myTableView.RowHeight
p.LoadLayout("pOrderRowAddCell")
Dim tc As TableCell = myTableView.AddSingleLine("")
tc.ShowSelection = False
tc.AccessoryType = tc.ACCESSORY_NONE
tc.CustomView = p
end sub