0

文字列が他のシステムから取得されたグリッドビューをデータバインドする必要があります。

フォーマットは次のようになります。

A1|Peter|2011-01-01|2012-03-03|0;A9|Jacky|2011-10-01|2012-09-03|2;B3|Chris|2011-10-01|2012-09-03|2;

| | 列の区切りとして

; 次のレコードの区切りとして

それを行う方法はありますか?

ありがとう。

以下のように私のコード:

   Sub Call_Payroll(ByVal SNO As String)


        Dim theType As String = ""

        theType = xxxxxx <- Get from Source

        Dim tList = theType.Split(";")



        Dim dt As New DataTable

        dt = ListToDataTable(tList)

        RadGrid_payroll.DataSourceID = ""
        RadGrid_payroll.DataSource = dt
        RadGrid_payroll.DataBind()

    End Sub

    Public Shared Function ListToDataTable(Of T)(ByVal list As List(Of T)) As DataTable
        Dim dt As New DataTable()
        For Each info As PropertyInfo In GetType(T).GetProperties()
            dt.Columns.Add(New DataColumn(info.Name, info.PropertyType))
        Next
        For Each T In list
            Dim row As DataRow = dt.NewRow()
            For Each info As PropertyInfo In GetType(T).GetProperties()
                row(info.Name) = info.GetValue(T, Nothing)
            Next
            dt.Rows.Add(row)
        Next
        Return dt
    End Function
4

0 に答える 0