cmd = SQL1.ExecQuery("SELECT * FROM T where Title like '" & Main.CLV1Value &"'" )
CLV1.Clear
For i = 0 To cmd.RowCount -1
cmd.Position = i
'CLV1.GetBase.SetBitmap(bmp)
Content= cmd.GetString("Content")
FootNote= cmd.GetString("FootNote")
Id=cmd.GetInt("Id")
CLV1.AddTextItem(Content ,Id)
'
Next
CLV1.AddTextItem(...)
Dim Panel As B4XView = CLV1.GetPanel(CLV1.Size - 1)
Panel.SetBitmap(...) 'if it is a cross platform project then you should add an ImageView or B4XImageView to the panel.
CLV1.AddTextItem(...)
Dim Panel As B4XView = CLV1.GetPanel(CLV1.Size - 1)
Panel.SetBitmap(...) 'if it is a cross platform project then you should add an ImageView or B4XImageView to the panel.