배열을 gridview에 할당 asp.net

Question

배열을 gridview의 데이터 소스에 할당하는 동안 각 행에 대한 정보를 가져올 수 없습니다. 마지막 행만 표시하고 반복합니다. 배열 내의 정보를 텍스트 파일

Sub BindGridview() 

    If Request.QueryString("show") <> "" Then 
     Dim readEmailList As StreamReader = New StreamReader("d:\netdrvs\prs\emaillist\" & Request.QueryString("show"), FileMode.Open) 

     While Not readEmailList.EndOfStream 

      Dim readData(3) As String 
      readData = Split(readEmailList.ReadLine(), vbTab) 
      Dim readData2(3) As String 
      readData2 = Split(readData(0), "_") 

    Dim dt As New System.Data.DataTable() 


    dt.Columns.Add("ccode", Type.GetType("System.String")) 
    dt.Columns.Add("email", Type.GetType("System.String")) 
    dt.Columns.Add("invnum", Type.GetType("System.String")) 
    dt.Columns.Add("regards", Type.GetType("System.String")) 

    dim i as integer = 0 

    For i = LBound(readData) to UBound(readData) 
     dt.Rows.Add() 
     'dt.Rows(dt.Rows.Count - 1)("ccode") = arrMultiD(i, 0) 
     dt.Rows(dt.Rows.Count - 1)("ccode") = readData2(1) 
     dt.Rows(dt.Rows.Count - 1)("email") = readData(1) 
     dt.Rows(dt.Rows.Count - 1)("invnum") = readData2(0) 
     dt.Rows(dt.Rows.Count - 1)("regards") = readData(2) 
    Next 

      gvarray.DataSource = dt 
      gvarray.DataBind() 

     End While 


     readEmailList.Close() 

     ProcessChk.Visible = True 
    End If 

End Sub 

Answer 1

If Request.QueryString("show") <> "" Then 
     Dim readEmailList As StreamReader = New StreamReader("d:\netdrvs\prs\emaillist\" & Request.QueryString("show"), FileMode.Open) 

    Dim dt As New System.Data.DataTable() 

    dt.Columns.Add("ccode", Type.GetType("System.String")) 
    dt.Columns.Add("email", Type.GetType("System.String")) 
    dt.Columns.Add("invnum", Type.GetType("System.String")) 
    dt.Columns.Add("regards", Type.GetType("System.String")) 


    While Not readEmailList.EndOfStream 

     Dim readData(3) As String 
     readData = Split(readEmailList.ReadLine(), vbTab) 
     Dim readData2(3) As String 
     readData2 = Split(readData(0), "_") 

     dt.Rows.Add() 
     dt.Rows(dt.Rows.Count - 1)("ccode") = readData2(1) 
     dt.Rows(dt.Rows.Count - 1)("email") = readData(1) 
     dt.Rows(dt.Rows.Count - 1)("invnum") = readData2(0) 
     dt.Rows(dt.Rows.Count - 1)("regards") = readData(2) 

    End While 


    gvarray.DataSource = dt 
    gvarray.DataBind() 

    readEmailList.Close() 

    ProcessFile.Visible = true 

    End If 

Answer 2

당신이 잘못 각 While 반복,에 DataTable을하고 있습니다에서 오는

, 그래서 하나가 만들어지는 동안 위에 넣어. 그런 다음 데이터를 추출하십시오.

Dim dt As New DataTable 
dt.Columns.Add("ccode", Type.GetType("System.String")) 
dt.Columns.Add("email", Type.GetType("System.String")) 
dt.Columns.Add("invnum", Type.GetType("System.String")) 
dt.Columns.Add("regards", Type.GetType("System.String")) 
While Not readEmailList.EndOfStream 
    Dim itemsArray As New System.Collections.Generic.List(Of Object) 
    Dim readData(3) As String 
    readData = Split(readEmailList.ReadLine(), vbTab) 
    Dim readData2(3) As String 
    readData2 = Split(readData(0), "_") 
    itemsArray.Add(readData2(1)) 
    itemsArray.Add(readData(1)) 
    itemsArray.Add(readData2(0)) 
    itemsArray.Add(readData2(1)) 
    Dim row = dt.NewRow() 
    row.ItemArray() = itemsArray.ToArray() 
End While 
gvarray.DataSource = dt 
gvarray.DataBind()