где то в стайл гайде мелкософта

------

Читать гайды от мелкомягих? Мне хватает кода написанного в точном соответствии с примерами мелкомягких - если на описано, а у меня не описано, что и как делается - фиг разберешся без поллитры что там...

Текучка:

грузится табличка из базы. Табличка в базе - может быть отредактирована в любой момент.

на основании полученных данных - строится набор ДатаКолумнов и добавляется в другую табличку

по этой другой табличке строится третья - с удалением и добавлением полей

все это написано именно в стиле примеров мелкомягких:

    Private Function createReport(ByVal startDateTime As String, ByVal finishDateTime As String) As DataSet
        Dim DS As New DataSet
        Dim DTOptimisations As DataTable = Nothing
        Dim DTReplacements As DataTable = Nothing
        Dim DTPieces As DataTable = Nothing
        Dim
 DTNUM_KREIS As DataTable = Nothing
        Dim DTLIPROD_USER As DataTable = Nothing
        'Dim DTDisplay As DataTable = Nothing
        Dim DTSummary As DataTable = Nothing
        Try
            DTOptimisations = DXCR8.loadDTOptimisations(startDateTime, finishDateTime)
            DTReplacements = DXCR8.loadDTReplacements(startDateTime, finishDateTime)

            DTOptimisations.Merge(DTReplacements)

            If DTOptimisations.Rows.Count > 0 Then

                DTNUM_KREIS = DXCR8.loadDTNUM_KREIS
                DTNUM_KREIS = loadDTNUM_KREIS_abbreviateDepartment(DTNUM_KREIS)
                DTLIPROD_USER = DXCR8.loadDTLIPROD_USER

                DTOptimisations = addColumnsDTOptimisations(DTOptimisations, DTNUM_KREIS)
                DTOptimisations = DTOptimisations.Select("", "batchNo, glassNo").CopyToDataTable

                For Each DROptimisation As DataRow In DTOptimisations.Rows

                    If DROptimisation.Item("batchNo").ToString = "3041312" Then
                        DROptimisation.Item("batchNo") = 3041312
                    End If

                    If DROptimisation.Item("seqNo").ToString = "-3" Then
                        DTPieces = DXCR8.loadDTPiecesDummy("800001", DROptimisation)
                    Else
                        DTPieces = DXCR8.loadDTPieces(DROptimisation)
                    End If

                    If DTPieces.Rows.Count > 0 Then

                        DTPieces = DTPieces_setDepartment(DTNUM_KREIS, DTPieces)
                        DTPieces = DTPieces_setDepartment_exceptions(DTNUM_KREIS, DTLIPROD_USER, DTPieces)
                        DTPieces = DTPieces_setDepartment_replacements(DTNUM_KREIS, DTLIPROD_USER, DTPieces)

                        DROptimisation =
 fillDROptimisation(DTPieces, DTNUM_KREIS, DROptimisation)

                    End If
                Next
                DTOptimisations = fillDTOptimisation_combinedGlassNames(DTOptimisations)
                DTOptimisations.Columns.Remove("sheetWidth")
                DTOptimisations.Columns.Remove("sheetHeight")
                DTOptimisations.Columns.Remove("seqNo")
                DTOptimisations.Columns.Remove("timestampIndex")


                DTSummary = loadDTSummary(DTOptimisations)

                Me.ViewState.Item("DTOptimisations") = DTOptimisations
                Me.ViewState.Item("DTSummary") = DTSummary
                PNL1AddGV("GVDisplay", "Stock Sheet Usage", DTOptimisations)
                PNL1AddGV("GVSummary", "Stock Sheet Summary", DTSummary)
            End If



        Catch ex As Exception

        End Try
        Return DS
    End Function

Найдешь, с плутыка, где и как менается структура двух таблиц?

Вопрос второй - нахрена пустой DS возвращать?