Visual Basic

How to Download File and Upload in Datagridview VB.NET ?

" SELECT" & _
"   h.FSALESPN " & _
" , h.FPERIOD " & _
" , h.FCSAMT " & _
" FROM ARINV01H.dbf h " & _
" WHERE h.FSHIPDATE >= @FSTART " & _
" AND h.FSHIPDATE <= @FSTOP "

Dim gSalesReps As List(Of model_salesChampions) = invoices.GroupBy(Function(sR) sR.FSALESREP).Select(Function(cl) New model_salesChampions() With {
    .salesrep_ID = cl.First().FSALESREP,
    .salesrep_Name = String.Empty,
    .P1 = cl.Where(Function(p1) p1.FPERIOD = rT & "01").Sum(Function(p1) p1.FCSAMT),
    .P2 = cl.Where(Function(p2) p2.FPERIOD = rT & "02").Sum(Function(p2) p2.FCSAMT),
    .P3 = cl.Where(Function(p3) p3.FPERIOD = rT & "03").Sum(Function(p3) p3.FCSAMT),
    .P4 = cl.Where(Function(p4) p4.FPERIOD = rT & "04").Sum(Function(p4) p4.FCSAMT),
    .P5 = cl.Where(Function(p5) p5.FPERIOD = rT & "05").Sum(Function(p5) p5.FCSAMT),
    .P6 = cl.Where(Function(p6) p6.FPERIOD = rT & "06").Sum(Function(p6) p6.FCSAMT),
    .P7 = cl.Where(Function(p7) p7.FPERIOD = rT & "07").Sum(Function(p7) p7.FCSAMT),
    .P8 = cl.Where(Function(p8) p8.FPERIOD = rT & "08").Sum(Function(p8) p8.FCSAMT),
    .P9 = cl.Where(Function(p9) p9.FPERIOD = rT & "09").Sum(Function(p9) p9.FCSAMT),
    .P10 = cl.Where(Function(p10) p10.FPERIOD = rT & "10").Sum(Function(p10) p10.FCSAMT),
    .P11 = cl.Where(Function(p11) p11.FPERIOD = rT & "11").Sum(Function(p11) p11.FCSAMT),
    .P12 = cl.Where(Function(p12) p12.FPERIOD = rT & "12").Sum(Function(p12) p12.FCSAMT)
}).ToList()

me.TblPCRBindingSource.Filter = "ModelYear = " & (myear) And "Line = " & CInt(txtLine.Text)

Sub Main()
        '--------------------------------------------------------------------------------------------------------
        'Declare Variables
        Dim strSiteCode
        Dim strVistaFQDN
        Dim strPort
        Dim arrStr

        '--------------------------------------------------------------------------------------------------------
        'Start processing

        Using sr As New StreamReader("c:\dell\R03Sites2.csv")
            Dim line As String
            ' Read and display lines from the file until the end of
            ' the file is reached.
            Do
                line = sr.ReadLine()
                Dim Sites As String = My.Computer.FileSystem.ReadAllText("c:\dell\Sites2.txt")
                If Not (line Is Nothing) Then
                    Console.WriteLine("Start processing loop")
                    arrStr = Split(sr.ReadLine, ",")
                    strSiteCode = arrStr(0)
                    strVistaFQDN = arrStr(1)
                    strPort = arrStr(2)
                    Console.WriteLine("Array populated...  Enter if then statement")
                    If Trim(Sites) = Trim(strSiteCode) Then
                        Console.WriteLine(Trim(Sites) & " , " & Trim(strSiteCode))
                        Console.WriteLine("s=" & strVistaFQDN & " p=" & strPort)

                        'build shorcuts here.  Code to build shortcuts is working correctly when ran
                        'statically but it never finds a match so it always moves to the else and writes
                        'Console.WriteLine("Error:  No Matching Information in the Sites and R03sites files!")
                        'There is only 1 line is Sites and an array is created for the data in R03sites.
                        'My intention is to match the line in Sites to the portion of the array that correspondes
                        'to the site which is strSiteCode.  When it finds the match it is suppose to create the
                        'shortcut with the correct server name and port.


                        Console.WriteLine("Successfully processed!")
                        Exit Do
                    Else
                        Console.WriteLine("Error:  No Matching Information in the Sitecode and R03sites files!")
                    End If
                End If
            Loop Until line Is Nothing
        End Using
    End Sub