I have this class:
Imports System.Data
Public Class SqlToDataset
#Region "Partial Class DataFields"
#End Region
Public Tables As List(Of DataTable)
Public Structure SqlTable
Dim DataFields As List(Of DataFields)
Dim Rows As List(Of DataRow)
End Structure
Public SqlTables As List(Of SqlTable)
Public Sub New()
Tables = New List(Of DataTable)
SqlTables = New List(Of SqlTable)
End Sub
Public Sub LoadData()
Dim OneSqlTable As New SqlTable
For Each _DataTable As DataTable In Tables
Dim _Fields As New DataFields
For Each _DataColumn As DataColumn In _DataTable.Columns
_Fields.AddField(_DataColumn.ColumnName, _DataColumn.DataType.ToString, _DataTable.Columns.IndexOf(_DataColumn.ColumnName))
Next
OneSqlTable.DataFields.Add(_Fields)
Next
End Sub
End Class
In sub LoadData at the line OneSqlTable.DataFields.Add(_Fields)
I get the error, that DataFields isn't set. I think, I have set it with this Dim OneSqlTable As New SqlTable
.
Can you advise me, where I am wrong?
Thanks.