[블루투스] 모음집 매트릭스 변환 실행

하고 싶은 일
모음집 행렬 변환.
기존 콜렉션 매니폴레이션에는 트랜스포즈 콜렉션이 있는데, 생각과는 다른 결과를 얻어 스스로 하게 됐다.
Input


결실
그런 거 아니야.

찾다
행과 열을 변환 중입니다.

코드
안 자르는 연선이니까 누가 팩스 더 보내주세요(쓴웃음)

Try
    Dim New_Collection As DataTable
    New_Collection = New DataTable()

    '最大行列取得
    Dim maxRow, maxCol As Integer
    maxRow = Collection_In.Rows.Count
    maxCol = Collection_In.Columns.Count

    'フィールド作成,空行追加
    Dim tmpColCount As Integer = 0
    For Each r1 As DataRow In Collection_In.Rows
        New_Collection.Columns.Add("Column" & tmpColCount, Type.GetType("System.String"))
        tmpColCount = tmpColCount + 1
    Next
    For Each c1 As DataColumn In Collection_In.Columns
        Dim dr As DataRow
        dr = New_Collection.NewRow
        New_Collection.Rows.Add(dr)
    Next

    'データ登録
    Dim rowCount As Integer = 0
    Dim newColCount As Integer = 0
    While rowCount < maxRow
        Dim colCount As Integer = 0
        Dim newRowCount As Integer = 0
        For Each c3 As DataColumn In Collection_In.Columns
            New_Collection.Rows(newRowCount)("Column" & newColCount) = Collection_In.Rows(rowCount)(c3.ColumnName)
            newRowCount = newRowCount + 1
        Next
        newColCount = newColCount + 1
        rowCount = rowCount + 1
    End While

    Transpose_Collection = New_Collection.DefaultView.ToTable
    Success = True
    Message = ""
Catch e As Exception
    Success = False
    Message = e.Message
End Try

주의
모든 열의 유형이 "텍스트"인 행렬이 변환된 모음집입니다.
암호 유형과 플래그 유형의 매개변수는 텍스트로 표시됩니다.
(예)암호 유형→변환 전:●●●●변환후:Password
(예) 태그 유형→변환 전:True 변환 후:True(문자열)
견본
https://github.com/falcslab/blueprism/tree/collection
BPA 객체 - 즐겨찾기 행렬 변환.xml