Listview Error

[mutley]

Hi

I see example below:

    Dim itmX As ListItem ' Create a variable to add ListItem objects.
    Dim clmX As ColumnHeader ' Create an object variable for the ColumnHeader object.
   ' Add ColumnHeaders.
    Set clmX = ListView1.ColumnHeaders.Add(, , "Column 1", ListView1.Width / 3)
    Set clmX = ListView1.ColumnHeaders.Add(, , "Column 2", ListView1.Width / 3)
    Set clmX = ListView1.ColumnHeaders.Add(, , "Column 3", ListView1.Width / 3)
    
    ListView1.BorderStyle = ccFixedSingle ' Set BorderStyle property.
    ListView1.View = lvwReport ' Set View property to Report.
    
    ' Add a main item
    Set itmX = ListView1.ListItems.Add(, , "First value")
    ' Add two subitems for that item
    itmX.SubItems(1) = "First value subitem 1"
    itmX.SubItems(2) = "First value subitem 2"

But when I put in my code

    Set itmX = lvw_profissional.ListItems.Add(, , Ret_Sql.Fields("TB02_PK"))
          itmX.SubItems(0) = "xxxx"

It return me error Invalid property value

[RhinoBull]

SubItems are 1 based collection:

change itmX.SubItems(0) to itmX.SubItems(1)

[bushmobile]

shouldn't it be:

itmX.SubItems(1) = "xxxx"

Edit: Dang! too slow.

[mutley]

I tried , but do not work

Set itmX = lvw_profissional.ListItems.Add(, , Ret_Sql.Fields("TB02_PK"))
itmX.SubItems(1) = Trim(Ret_Sql("TB02_NOME").Value)

Invalid property value

[RhinoBull]

What's Ret_Sql ?

[mutley]

Is a Recordset

[RhinoBull]

In that case it could be the following:

Trim(Ret_Sql.Fields("TB02_NOME").Value)

[mutley]

When I put a constant String , eg "XXXX", too do not work

[Mark Gambo]

Stupid question but you are creating the coulmns by running this code before the statement that is giving you the error?

' Add ColumnHeaders.
    Set clmX = ListView1.ColumnHeaders.Add(, , "Column 1", ListView1.Width / 3)
    Set clmX = ListView1.ColumnHeaders.Add(, , "Column 2", ListView1.Width / 3)
    Set clmX = ListView1.ColumnHeaders.Add(, , "Column 3", ListView1.Width / 3)

Also is the listview in Report View?

[RhinoBull]

When I put a constant String , eg "XXXX", too do not work

Are we familiar with words like

- Thank you
- Obrigado
- Gracias
- Merci
- Danke
- Спасибо
- Grazie

?..

[mutley]

Sorry

Thank you

[mutley]

I am using as

Private Sub Form_Load()
   ...
....
    Define_Listview

End Sub
Private Sub Define_Listview()
   Dim clmX As ColumnHeader
    Dim i As Integer

 ' With lvw_profissional
  Set clmX = lvw_profissional.ColumnHeaders.Add(, , "Código")
  Set clmX = lvw_profissional.ColumnHeaders.Add(, , "Profissional")
  
  lvw_profissional.BorderStyle = ccFixedSingle ' Set BorderStyle property.
  lvw_profissional.View = lvwReport
  
  
 ' Set itmX = lvw_profissional.ListItems.Add(, , 2)
 ' itmX.SubItems(1) = "xxxx"
     
  
End Sub

Private Sub Carregar_Funcionarios()

   Dim LSql As String
   Dim lInd As Integer
  Dim itmX As ListItem

   On Error GoTo CarregarFLUXOErro
   Screen.MousePointer = vbHourglass

    
    
    
    
   'lst_profissional.
   cmb_profissional.Clear

   LSql = "SELECT TB02_PK, "
   LSql = LSql & " TB02_NOME  "
   LSql = LSql & " FROM    TB02 "
   LSql = LSql & " ORDER BY 2 "
   Call Executar_Sql(LSql, Ret_Sql)

   'cmb_Grupo.AddItem "{Nenhum}"
   ' cmb_Grupo.ItemData(cmb_Grupo.NewIndex) = 0

   If Not (Ret_Sql Is Nothing) Then
      While Not Ret_Sql.EOF
      
           
           Set itmX = lvw_profissional.ListItems.Add(, ,Ret_Sql ("TB02_PK").Value)
    i     tmX.SubItems(1) = TrimRet_Sql ("TB02_NOME").Value)
        
         cmb_profissional.AddItem Trim(Ret_Sql("TB02_NOME").Value)
         cmb_profissional.ItemData(cmb_profissional.NewIndex) = Ret_Sql.Fields("TB02_PK")
         Ret_Sql.MoveNext
      Wend
      Ret_Sql.Close
   End If

   Screen.MousePointer = vbNormal
   Exit Sub

CarregarFLUXOErro:
   Screen.MousePointer = vbNormal
   'Call Tratar_Erro
End Sub

When I put constaants , too return me error

Thank you in advance

[RhinoBull]

I'm not sure what you mean but highlighted text (code) makes no sense - try replacing with the following:

Set itmX = lvw_profissional.ListItems.Add(, , Ret_Sql.[B]Fields[/B]("TB02_PK").Value)
    tmX.SubItems(1) = Trim(Ret_Sql.[B]Fields[/B]("TB02_NOME").Value)

[mutley]

Hi

My work fine as:

Private Sub Carrega_Listview(Prs As ADODB.Recordset)
  Dim itmX As ListItem
  
  
  Set itmX = lvw_profissional.ListItems.Add(, , Prs("TB02_PK").Value)
  'itmX.SubItems(1) = Trim(Prs("TB02_NOME").Value)
  itmX.ListSubItems.Add , , Prs("TB02_NOME").Value
End Sub

Thank you

[RhinoBull]

You're welcome.