Deutsch
Germany.ruФорумы → Архив Досок→ Программирование

​Сослаться на контрол?

17.07.19 12:33
Re: ​Сослаться на контрол?
 
Murr патриот
Murr
в ответ Murr 17.07.19 11:57

Похоже, что мне пора следовать за предшественником...


Тестовый сайт на 2 страницы. Страницы - практически одинаковые.

код 1


Protected Sub btnSearch_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSearch.Click
Try
If IsDate(Me.txtStartDate.Text) And
IsDate(Me.txtFinishDate.Text) Then

r31BO.Load(Me.txtStartDate.Text, Me.txtFinishDate.Text, Me.txtCustomerNo.Text, sites.Text)

Orders.DataSource = r31BO.Orders
Orders.DataBind()

ViewState.Add("Orders", r31BO.Orders)

End If
Catch ex As Exception
ExceptionHandler.TExceptionHandler.Warning(ex)
End Try

End Sub

Protected Sub btnExport_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnExport.Click
Try
If ViewState("Orders") IsNot Nothing Then
Dim itable As ITable = ViewState("Orders")
Excel.Export("ordersByInvoiceDate.xls", itable.GetDataTable())
End If
Catch ex As Exception

End Try
End Sub


код 2:



Protected Sub btnSearch_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSearch.Click
If IsDate(Me.txtStartDate.Text) And
IsDate(Me.txtFinishDate.Text) Then

r04bo.Load(Me.txtStartDate.Text, Me.txtFinishDate.Text)


SitesSummary.DataSource = r04bo.Sites
SitesSummary.DataBind()

Invoices.DataSource = r04bo.Invoices
Invoices.DataBind()

ViewState.Add("Invoices", r04bo.Invoices)

End If
End Sub

Protected Sub btnExport_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnExport.Click
Try
Try
If ViewState("Invoices") IsNot Nothing Then
Dim itable As ITable = ViewState("Invoices")
Excel.Export("OversizeSurchargeItems.xls", itable.GetDataTable())
End If
Catch ex As Exception

End Try
Catch ex As Exception

End Try
End Sub



Организация r31BO.Orders и r04bo.Invoices

- однотипная - класс оболочка и внутри класс Табле (ну или типы: TOrders.Table & TInvoices.Table)


Ну и почему первый код рабоатет без проблем, а второй - ломается на сериализации?

Еще раз - код - однотипный - общий базовый класс и немного логики общета данных. Сериализации ни там, ни там нет... на одном сайте...

Бред? Не-а... клиника...

 

Перейти на