vb4vengy Level: Guest

|
Bug fix
There is a small change in frmConvert -> LoadFields()
'--------------------------------------------------------
Public Sub LoadFields()
Dim i As Integer
If lvFields.ColumnHeaders.Count = 0 Then
lvFields.ColumnHeaders.Add , , "Field Name", 3000
lvFields.ColumnHeaders.Add , , "Field Type", 2000
lvFields.ColumnHeaders.Add , , "Field Size", 2000
End If
i = 1
For Each flds In rs.Fields
Set li = lvFields.ListItems.Add(i, , flds.Name)
Set lsi = lvFields.ListItems(i).ListSubItems.Add(1, , FindFieldType(flds.Type))
If rs.RecordCount > 0 Then
Set lsi = lvFields.ListItems(i).ListSubItems.Add(2, , flds.ActualSize)
End If
i = i + 1
Next
End Sub
'--------------------------------------------------------
|