Sub PrintTable(result As List)
clv1.Clear
Dim record,loc As String
For i = 0 To result.Size/3 - 1
record = result.get(i*3)
loc=result.get(i*3+1)
'sts=result.get(i*3+2)
Dim count As Int = i + 1
Dim result1 As String = count & ") " & record & " - " & loc
clv1.AddTextItem(result1,record & "-" & loc)
Next
Log(Name_door)
End Sub