Есть класс dbf, при его использовании выдается ошибка A first chance exception of type 'System.NullReferenceException' occurred in WindowsApplication1.exe.
Использую вызов MyDBF.AddColumn("Colum 1", DBF.ColumnType.N_Decimal, 1)

Public Class DBF

    Private HeaderColumns(255) As FieldDescriptor
    Private HeaderColumnsIDx As Byte

    Private Structure FieldDescriptor
        <VBFixedArray(10)> Dim FieldName() As Byte
        Dim FieldType As Byte
        Dim FieldAddr As Integer
        Dim FieldLen As Byte
        Dim DecimalLen As Byte
        Dim Reserved1 As Short
        Dim WorkId As Byte
        Dim Reserved2 As Short
        Dim SET_FIELDS As Byte
        <VBFixedArray(6)> Dim Reserved4() As Byte
        Dim Dbase4MDX As Byte

        Public Sub Initialize()
            ReDim FieldName(10)
            ReDim Reserved4(6)
        End Sub
    End Structure

    Public Enum ColumnType
        C_String = 67
        D_Data_YYYYMMDD = 68
        F_BinFPU = 70
        L_Logical = 76
        M_Memo = 77
        N_Decimal = 78
    End Enum

    Public Function AddColumn(ByRef Caption As String, ByVal ColType As ColumnType, ByVal Length As Short, Optional ByVal DecimalCount As Byte = 0) As Boolean

        Dim MkName As Long

        If Len(Caption) > 11 Then
            Exit Function
        ElseIf Len(Caption) < 11 Then
            Caption = Caption & Space(11 - Len(Caption))
        End If

        For MkName = 0 To 10
            HeaderColumns(HeaderColumnsIDx).FieldName(MkName) = Asc(Mid(Caption, MkName + 1, 1))
' и здесь выдается ошибка, т.е.  в структуру HeaderColumns не кладется не какое значение. а vb.net 2005 показывает, что неплохо 
' бы подставить слово New.

        Next MkName

        HeaderColumns(HeaderColumnsIDx).FieldType = ColType
        HeaderColumns(HeaderColumnsIDx).FieldLen = Length
        HeaderColumns(HeaderColumnsIDx).DecimalLen = DecimalCount
        HeaderColumnsIDx = HeaderColumnsIDx + 1
        AddColumn = True

    End Function
End Class


Весь в непонятках, на vb6 прокатывает все нормально, здесь не хочет.  
Подскажите в какую сторону копать. Заранее благодарен.  

     HeaderColumns(HeaderColumnsIDx).Initialize()
     For MkName = 0 To 10
            HeaderColumns(HeaderColumnsIDx).FieldName(MkName) = Asc(Mid(Caption, MkName + 1, 1))

        Next MkName


Это сообщение отредактировал(а) archimed7592 - 29.10.2006, 01:07

Witalij, 

Привет.
И еще, раз ты пишешь  Public Function AddColumn, то
 функция должна возвращать значение заданного типа, верно?
А у тебя функция ничего не возвращает. 
Ты ведь определил что, возвращаемый тип As Boolean
Так где волшебное слово Return?

HeaderColumns(HeaderColumnsIDx).DecimalLen = DecimalCount
        HeaderColumnsIDx = HeaderColumnsIDx + 1
        AddColumn = True а это что? Это и есть возращение значения "истина". Остальное еще дописывать.

    End Function
End Class

Хорошо, что archimed7592 подсказал. Была у меня идея поставить HeaderColumns.Initialize(), но и в этом случае тоже выдавал ошибку. Оказалось что нужно было каждую структуру инициализировать. 
Огромное спасибо, кто пытался помочь.