ListView Report Mode View - RESOLVED

[odamsr]

When I change to report mode view nothing is showing up in my listview. When I change it to List view my data shows up. Any ideas?

Private Sub LoadTableSpecs()
    
    Dim oSQLServer As New SQLDMO.SQLServer
    Dim oSQLDatabase As New SQLDMO.Database
    Dim oSQLTable As New SQLDMO.Table
    Dim oSQLColumn As New SQLDMO.Column
    
    Dim i As Integer
    Dim liObject As ListItem
    
    ListView1.ListItems.Clear
    
    oSQLServer.LoginSecure = True
    oSQLServer.Connect Form1.cboServer1.Text
    Set oSQLDatabase = oSQLServer.Databases(Form1.cboDatabase1.Text)
    Set oSQLTable = oSQLDatabase.Tables(Form1.cboTable1.Text)
    
    For Each oSQLColumn In oSQLTable.Columns
        
        Set liObject = ListView1.ListItems.Add(, , oSQLColumn.Name)
        liObject.SubItems.Add , , oSQLColumn.Datatype
        liObject.SubItems.Add , , oSQLColumn.Length
        Set liObject = Nothin
    
    Next
    
oSQLServer.DisConnect
Set oSQLServer = Nothing
End Sub

[RhinoBull]

You need to add ColumnHeaders before adding items.

[RhinoBull]

Here is a quick sample for you:

Private Sub Form_Load()
Dim j%
 
    ListView1.FullRowSelect = True
    ListView1.View = lvwReport
    With ListView1.ColumnHeaders
        .Add , , "List Item"
        For j = 1 To 3
            .Add , , "Sub Item " & j
        Next j
    End With
    
    ListView1.ColumnHeaders(2).Alignment = lvwColumnCenter
    ListView1.ColumnHeaders(3).Alignment = lvwColumnRight
 
End Sub

[odamsr]

That worked. I don't know what I would do without you guys.

Thanks.