Ilist转换成dataset

最新推荐文章于 2021-07-09 14:59:53 发布

原创最新推荐文章于 2021-07-09 14:59:53 发布 · 400 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#dataset #datagrid

本文介绍了一种在VB.NET中将对象列表转换为DataSet的方法。该方法通过反射获取对象的公共属性，并将其作为列名创建DataTable，然后遍历对象列表填充数据行。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

导读：
　　转换成DataSet的通用的方法如下：
　　PrivateFunctionConvertToDS(ByVallst AsIList, ByValtyp AsSystem.Type) AsDataSet
　　Dimobj AsObject
　　Dimds AsNewDataSet
　　
　　Dimtbl AsDataTable = ds.Tables.Add(typ.Name)
　　
　　' Get the public properties.
　　DimmyPropertyInfo AsSystem.Reflection.PropertyInfo() = typ.GetProperties((System.Reflection.BindingFlags.Public OrSystem.Reflection.BindingFlags.Instance))
　　
　　
　　Dimpi AsSystem.Reflection.PropertyInfo
　　ForEachpi InmyPropertyInfo
　　tbl.Columns.Add(pi.Name, System.Type.GetType(pi.PropertyType.ToString()))
　　Next
　　
　　
　　ForEachobj Inlst
　　Dimdr AsDataRow = tbl.NewRow
　　
　　ForEachpi InmyPropertyInfo
　　dr(pi.Name) = pi.GetValue(obj, Nothing)
　　Next
　　tbl.Rows.Add(dr)
　　
　　Next
　　Returnds
　　EndFunction
　　使用上面的方法来生成DataSet的方法如下：
　　DimCust AsNewCustomerBR
　　DimcustomerLst AsIList
　　customerLst = Cust.GetCustomers("from Customers")
　　
　　DimmyType AsSystem.Type = GetType(Customers)
　　DataGrid1.DataSource = ConvertToDS(customerLst, myType).Tables(0)
　　posted on 2006-06-14 13:18 Vinson阅读(662) 评论(0) 编辑收藏

本文转自
http://mhx1982.cnblogs.com/archive/2006/06/14/425686.aspx