데이터 테이블에서 중복 열을 찾아서 다른 데이터 테이블에 추가하십시오.

Question

6 개의 행과 많은 수의 열이있는 데이터 테이블이 있습니다. 열은 Operation1, 폴더 1, quantity1, OPeration2, Folder2 폴더, quantity2로 명명하고, 등등 ... 코드는 다음과 같다 :

Dim dt As New DataTable 

    'adding columns to the datatble 
    For i = 1 To 60 
     dt.Columns.Add("Operation" & i) 
     dt.Columns.Add("folder" & i) 
     dt.Columns.Add("quantity" & i) 
    Next 

    'adding datarows 
    Dim dr1 As DataRow = dt.NewRow 
    Dim dr2 As DataRow = dt.NewRow 
    Dim dr3 As DataRow = dt.NewRow 
    Dim dr4 As DataRow = dt.NewRow 
    Dim dr5 As DataRow = dt.NewRow 
    Dim dr6 As DataRow = dt.NewRow 

    For i = 1 To 10 
     dr1("Operation" & i) = GroupBox1.Controls("l1ob" & i) 
     dr1("Folder" & i) = GroupBox1.Controls("l1f" & i) 
     dr1("Quantity" & i) = GroupBox1.Controls("l1Qty" & i) 
     dr2("Operation" & i) = GroupBox2.Controls("l2ob" & i) 
     dr2("Folder" & i) = GroupBox2.Controls("l2f" & i) 
     dr2("Quantity" & i) = GroupBox2.Controls("l2Qty" & i) 
     dr3("Operation" & i) = GroupBox3.Controls("l3ob" & i) 
     dr3("Folder" & i) = GroupBox3.Controls("l3f" & i) 
     dr3("Quantity" & i) = GroupBox3.Controls("l3Qty" & i) 
     dr4("Operation" & i) = GroupBox4.Controls("l5ob" & i) 
     dr4("Folder" & i) = GroupBox4.Controls("l5f" & i) 
     dr4("Quantity" & i) = GroupBox4.Controls("l5Qty" & i) 
     dr5("Operation" & i) = GroupBox5.Controls("l6ob" & i) 
     dr5("Folder" & i) = GroupBox5.Controls("l6f" & i) 
     dr5("Quantity" & i) = GroupBox5.Controls("l6Qty" & i) 
     dr6("Operation" & i) = GroupBox6.Controls("l4ob" & i) 
     dr6("Folder" & i) = GroupBox6.Controls("l4f" & i) 
     dr6("Quantity" & i) = GroupBox6.Controls("l4Qty" & i) 
    Next 

    'adding the rows to the datatble 
    dt.Rows.Add(dr1) 
    dt.Rows.Add(dr2) 
    dt.Rows.Add(dr3) 
    dt.Rows.Add(dr4) 
    dt.Rows.Add(dr5) 
    dt.Rows.Add(dr6) 

무엇 내가 지금해야 할 것은 어떤에서 중복 폴더 열을 찾을 수 있습니다 여섯 행의 및 해당 수량 열을 요약하고 나중에 검색을위한 폴더 이름과 총 수량을 저장 ...이 달성하는 방법이 있습니까? 도와주세요 ...

이것은 DataColumn에에서 열 이름을 검색하는 방법입니다

Answer 1

:

Dim name(dt.Columns.Count) As String 
Dim i As Integer = 0 
For Each column As DataColumn In DT.Columns 
    name(i) = column.ColumnName 
    i += 1 
Next 

수행 할 수있는 검색 :

dt.Columns(1).ColumnName 

당신의 DataTable 내의 모든 DataColumns의 이름을 얻으려면 이름 배열에 일치하는 열 이름을 찾고 수량을 추가하십시오.