Vb.NET行数据转换成列数据

Vb.NET行数据转换成列数据

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        DataGridView1.Columns.Clear()
        DataGridView1.DataSource = GetDateTable("1|2|3,张三|李四|王五,1111111|2222222|3333333", "编号|姓名|卡号")
    End Sub
    Function GetDateTable(ByVal s As String, ByVal TabNames As String) As DataTable
        Dim tb As New DataTable
        Dim ss() As String = s.Split(",")
        Dim tc() As String = TabNames.Split("|")
        Dim c As Integer
        For Each i As String In ss
            Dim ts() As String = i.Split("|")
            Dim dc As DataColumn
            If c < tc.Length Then
                dc = New DataColumn(tc(c))
            Else
                dc = New DataColumn
            End If
            tb.Columns.Add(dc)
            For j As Integer = 0 To ts.Length - 1
                If j > tb.Rows.Count - 1 Then
                    tb.Rows.Add(tb.NewRow)
                End If
                tb.Rows(j)(dc) = ts(j)
            Next
            c += 1
        Next
        Return tb
    End Function