layout for CRUD in table with many columns

[mutley]

Hi
Somebody can give an idea how can built a CRUD in form when a table(oracle) have 92 columns


Any help will be appreciated

tia

[DEXWERX]

Sounds like a job for a Property Grid. A Tabbed one.

edit: That's what I would do anyway - you'll find a lot of UI people strongly against Property Grids in general.

[mutley]

Thank you
But I can not to use any grid (msflexgrid /ssdbgrid) Tabs perhaps bad is put all this amount of fields

[mutley]

Thank you
But I can not to use any grid (msflexgrid /ssdbgrid) Tabs perhaps bad is put all this amount of fields

[LaVolpe]

Can you use a listview to CRUD individual records? The field values would be in the first listview column and the field names in the second column -- then change the order so the field names are first. This allows user to enter directly into the field values column.

ListView1.ColumnHeaders(1).Position = 2

Then you can load an individual record using code similar to the following. In this example, we'll assume your records are in a recordset RS:

    Dim n As Long
    ListView1.ListItems.Clear
    For n = 0 To rs.Fields.Count - 1
        With ListView1.ListItems.Add(, , rs.Fields(n).Value)
            .SubItems(1) = rs.Fields(n).Name
        End With
    Next

[mutley]

Can you use a listview to CRUD individual records? The field values would be in the first listview column and the field names in the second column -- then change the order so the field names are first. This allows user to enter directly into the field values column.

ListView1.ColumnHeaders(1).Position = 2

Then you can load an individual record using code similar to the following. In this example, we'll assume your records are in a recordset RS:

    Dim n As Long
    ListView1.ListItems.Clear
    For n = 0 To rs.Fields.Count - 1
        With ListView1.ListItems.Add(, , rs.Fields(n).Value)
            .SubItems(1) = rs.Fields(n).Name
        End With
    Next

Thank you, but I did not understand

[mutley]

Can you use a listview to CRUD individual records? The field values would be in the first listview column and the field names in the second column -- then change the order so the field names are first. This allows user to enter directly into the field values column.

ListView1.ColumnHeaders(1).Position = 2

Then you can load an individual record using code similar to the following. In this example, we'll assume your records are in a recordset RS:

    Dim n As Long
    ListView1.ListItems.Clear
    For n = 0 To rs.Fields.Count - 1
        With ListView1.ListItems.Add(, , rs.Fields(n).Value)
            .SubItems(1) = rs.Fields(n).Name
        End With
    Next

Thank you, but I did not understand