이 가장 최적화 된 코드를하지 않을 수 있습니다 도움이 didnt가 있으면 알려 주시기하지만, 작동하는 것 같습니다 ... 기본적으로 매핑 테이블의 "New Columns"열의 열 이름을 사용하여 새 DataTable을 만든 다음 첫 번째 테이블의 각 행에 대해 매핑 테이블을 단계별로 저장하고 "Old "새 열"열의 "열"열
Protected Sub MapData()
Dim table1 = New DataTable()
Dim table2 = New DataTable()
Dim table3 = New DataTable()
With table1
.Columns.Add("Fore Name")
.Columns.Add("Sir Name")
.Columns.Add("Date of Birth")
.Columns.Add("Country")
Dim newRow = .NewRow()
newRow("Fore Name") = "AA"
newRow("Sir Name") = "AA"
newRow("Date of Birth") = "01.01.1999"
newRow("Country") = "UK"
.Rows.Add(newRow)
' etc
End With
With table2
.Columns.Add("Old Columns")
.Columns.Add("New Columns")
Dim newRow = .NewRow()
newRow("Old Columns") = "Fore Name"
newRow("New Columns") = "First Name"
.Rows.Add(newRow)
newRow = .NewRow()
newRow("Old Columns") = "Sir Name"
newRow("New Columns") = "Last Name"
.Rows.Add(newRow)
newRow = .NewRow()
newRow("Old Columns") = "Date of Birth"
newRow("New Columns") = "DOB"
.Rows.Add(newRow)
End With
For Each rowData As DataRow In table2.Rows
table3.Columns.Add(rowData("New Columns"))
Next
For Each table1Data As DataRow In table1.Rows
Dim newRow = table3.NewRow()
For Each rowMap As DataRow In table2.Rows
newRow(rowMap("New Columns")) = table1Data(rowMap("Old Columns"))
Next
table3.Rows.Add(newRow)
Next
End Sub
이 두 테이블 관계를 만들 수 있습니다 다음 숨기거나 열을 제거하거나 열 이름 대신 – skhurams
감사를 변경하지만 난 그것을 실제로하는 방법을 고민하고 .. 더 ABIT 나를 설명 할 수 있습니까? – lawphotog