IList转换成DataSet

最新推荐文章于 2020-12-28 21:37:17 发布

原创最新推荐文章于 2020-12-28 21:37:17 发布 · 569 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#dataset #each #function #object

vb.net技巧专栏收录该内容

3 篇文章

订阅专栏

本文介绍了一种将IList集合转换为DataSet的方法，通过遍历集合中的对象并获取其公共属性来填充数据表。

''' <summary>
    ''' 将IList转换成DataSet
    ''' </summary>
    ''' <param name="lst"></param>
    ''' <param name="typ"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Function ConvertIlistToDS(ByVal lst As IList, ByVal typ As System.Type) As DataSet
        Dim obj As Object
        Dim ds As New DataSet
        Dim tbl As DataTable = ds.Tables.Add(typ.Name)
        ' Get the public properties.
        Dim myPropertyInfo As System.Reflection.PropertyInfo() = typ.GetProperties((System.Reflection.BindingFlags.Public Or System.Reflection.BindingFlags.Instance))
        Dim pi As System.Reflection.PropertyInfo

        For Each pi In myPropertyInfo
            tbl.Columns.Add(pi.Name, System.Type.GetType(pi.PropertyType.ToString()))
        Next

        For Each obj In lst
            Dim dr As DataRow = tbl.NewRow
            For Each pi In myPropertyInfo
                dr(pi.Name) = pi.GetValue(obj, Nothing)
            Next
            tbl.Rows.Add(dr)
        Next
        Return ds
    End Function

'调用

'SaleDetails为自定义类

MyPub.ConvertIlistToDS(SaleBufferList, GetType(SaleDetails))