Visual Basic

iBlockRowStart = iCurrentRow
iBlockRowStop = iBlockRowStart

' Step 1: The first row of the block is recognized through a previous if-inquiry. Now get the last row with the appropiate condition - in this case the block ends until the day of week in the current row isn't friday
' DS is my DataSet, which is already filled with data 

Do While System.Convert.ToDateTime(DS.Tables("AnyTable").Rows(iBlockRowStop).Item("Date")).DayOfWeek = dayofweek.Friday
	iBlockRowStop = iBlockRowStop + 1
	If iBlockRowStop = DS.Tables("AnyTable").Rows.Count Then
		Exit Do
	End If
Loop
iBlockRowStop = iBlockRowStop - 1
						
' Step 2: Clone tablestructure and then copy block-rows to a new, temporary datatable
tempTable = DS.Tables("AnyTable").Clone()
For j = iBlockRowStart To iBlockRowStop
	tempTable.ImportRow(DS.Tables("AnyTable").Rows(j))
Next
						
' Step 3, 4 & 5: Assign Data to DataView, Sort Data and reassign to new DataTable
View = tempTable.DefaultView
View.Sort = "ColA, ColB"
Dim tempTable2 as DataTable = View.ToTable()
						
' Step 6: Copy datarows of tempTable2 into the section of the table in my DataSet, specified by my indices
For j = iBlockRowStart To iBlockRowStop
	For k = 0 To tempTable2.Columns.Count - 1
		DS.Tables("AnyTable").Rows(j).Item(k) = tempTable2.Rows(j - iBlockRowStart).Item(k)
	Next
Next

Minenhle Ndlovu wrote:

here is giving me an error

Minenhle Ndlovu wrote:

How can i add the reference to my windows form here is my references

Bastard Programmer from Hell

        Dim oApp As New Excel.Application()
        Dim oBook As Excel.Workbook = oApp.Workbooks.Add
        Dim oSheet As Excel.Worksheet = oApp.ActiveSheet
        Dim chartRange As Excel.Range

        'hoofding
        chartRange = oSheet.Range("A1", "I1")
        chartRange.Merge()
        chartRange.FormulaR1C1 = "WorkBook"
        chartRange.Font.Bold = True
        chartRange.Font.Size = 20
        chartRange.HorizontalAlignment = 3
        'chartRange.VerticalAlignment = 3

        'Save the Workbook
        oBook.SaveAs(sSampleFolder & "V.F." & idvoorexcel & "-" & Label6.Text & ".xlsx")

        oSheet = Nothing
        oBook.Close(False)
        oBook = Nothing
        oApp.Quit()
        oApp = Nothing
        System.Threading.Thread.Sleep(3000)

    End If
Catch ex As Exception
    MsgBox("location : catch blok")
    oSheet = Nothing
    oBook = Nothing
End Try

Imports Microsoft.Office.Interop
Try

                Dim oApp As New Excel.Application()
                Dim oBook As Excel.Workbook = oApp.Workbooks.Add
                Dim oSheet As Excel.Worksheet = oApp.ActiveSheet
    
                chartRange = oSheet.range("A20", "G20")
                oSheet.Range("A20").Value = "blabla"
                chartRange.BorderAround(Excel.XlLineStyle.xlContinuous, _
                Excel.XlBorderWeight.xlMedium, Excel.XlColorIndex. _
          xlColorIndexAutomatic, Excel.XlColorIndex.xlColorIndexAutomatic)

                'Save the Workbook and quit Excel.
                oBook.SaveAs(sSampleFolder & "V.F." & idvoorexcel & "-" & Label6.Text & "-" & DateTime.Now.ToString("ddMMyyHHmmss") & ".xlsx")
                oSheet = Nothing
                NAR(oSheet)
                oBook.Close(False)
                NAR(oBook)
                oBook = Nothing
                oApp.Quit()
                NAR(oApp)
                oApp = Nothing
                System.Threading.Thread.Sleep(1500)
            End If
        Catch ex As Exception
            NAR(oSheet)
            oBook.Close(False)
            NAR(oBook)
            oSheet = Nothing
            oBook.Close(False)
            oBook = Nothing
            System.Threading.Thread.Sleep(1500)
            GC.Collect()
        End Try
    Private Sub NAR(ByVal o As Object)
        Try
            System.Runtime.InteropServices.Marshal.ReleaseComObject(o)
        Catch
        Finally
            o = Nothing
        End Try
    End Sub

Anu_Bala wrote:

any tutorial or article related to this concern.

Dave Kreskowiak wrote:

I don't know why you were down-voted