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