Потеря данных продолжается

Question

Эта процедура находится внутри xsd-файла:

Public Shared Sub AddRowData(ByVal sender As Object, ByVal e As System.EventArgs)
    Dim myDataCol As DataColumn
    Dim myDataRow As DataRow
    Dim ordTable As New DataTable
    Dim newDataRow As DataTable.orderDataRow
    Dim myDataset As New DataSet("orderData")
    Try
        ordTable.AllowAddNew = True
        newDataRow = ordTable.NewRow
        ordTable.orderData.Rows.Add(PrintContents(0),
                              PrintContents(1),
                              PrintContents(2),
                             PrintContents(3),
                              PrintContents(4),
                              PrintContents(5),
                              PrintContents(6))

    Catch ex As Exception
        MessageBox.Show(ex.Message, "AddRowData")
    End Try
End Sub

Перед тем, как выйти из процедуры, я проверяю строку DataSet и вижу, что переменная есть.

Вследующий шаг - переход к форме, в которой я просматриваю соответствующий отчет.

Последняя форма содержит только событие Load, ничего больше.

Там нет ни одной строки.

Answer 1

Ваши переменные выходят из области видимости. Поскольку вы объявили (Dimmed) переменные внутри функции, они очищаются, как только ваш код выходит из этой функции.

Попробуйте поместить эту строку вне функции:

Private ordTable as DataTable

Затем измените:

Dim ordTable As New DataTable

до:

ordTable = New DataTable

После этого вы сможете получить доступ к ordTable извне этого метода.