转换成DataSet的通用的方法如下：
Private Function ConvertToDS(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
使用上面的方法来生成DataSet的方法如下：
Dim Cust As New CustomerBR
Dim customerLst As IList
customerLst = Cust.GetCustomers("from Customers")
Dim myType As System.Type = GetType(Customers)
DataGrid1.DataSource = ConvertToDS(customerLst, myType).Tables(0)
此内容由惯性聚合(RSS阅读器)自动聚合整理，仅供阅读参考。 原文来自 — 版权归原作者所有。