Dim strColumn As String
For i=0 To L.Size-1 'By using i=1 you can skip the header as part of the list
strColumn=L.Get(i)
strColumn= strColumn.Replace("[","").Replace("]","")
MyListview.AddSingleLine(strColumn)
Next
L=a.Query("select ROW1 from TABLE1")
For i=1 To L.Size-1
strColumn=L.Get(i)
strColumn= strColumn.Replace("[","").Replace("]","")
L1=a2.Query("select ROW2 from TABLE2")
For i2=1 To L1.Size-1
strColumn1=L.Get(i2)
strColumn1= strColumn1.Replace("[[artdes], [","").Replace("]]","")
ListView1.AddTwoLines (strColumn,strColumn1)
Next
Next
Dim strColumn As String
For i=0 To L.Size-1 'i=1 - skip header
strColumn=L.Get(i) ' L is sql List that contains a column of my db. First value of L is passed to a string (strColumn)
strColumn= strColumn.Replace("[","").Replace("]","") 'I clean the result because We get same "[" with the value
MyListview.AddSingleLine(strColumn) 'Add line to the ListView
Next
L=a.Query("select ROW1 from TABLE1")
For i=1 To L.Size-1
strColumn=L.Get(i)
strColumn= strColumn.Replace("[","").Replace("]","")
L1=a2.Query("select ROW2 from TABLE2")
For i2=1 To L1.Size-1
strColumn1=L.Get(i2)
strColumn1= strColumn1.Replace("[[artdes], [","").Replace("]]","")
ListView1.AddTwoLines (strColumn,strColumn1)
Next
Next
ListView1.Clear
L=a.Query("select COLUMN1 from TABLE1")
For i=1 To L.Size-1
strColumn=L.Get(i)
strColumn= strColumn.Replace("[","").Replace("]","")
strColumn1=a2.Query ("select COLUMN2 from TABLE2 where COLUMN3 = '" & strColumn & "'")
strColumn1= strColumn1.Replace("[[], [","").Replace("]]","")
ListView1.AddTwoLines (strColumn,strColumn1)
Next