note.Net DataReaderToDataTable

dt.Load(dr)  //ADO.net 2.0

---

//non 2.0
dr.GetSchemaTable() 得到这个SchemaTable 后，自己手工转换：

。。。

            dtSchema = dr.GetSchemaTable()
            For i = 0 To dtSchema.Rows.Count - 1
                dtReturn.Columns.Add(dtSchema.Rows(i).Item(0))
            Next
            While dr.Read()
                drw = dtReturn.NewRow()
                For i = 0 To dr.FieldCount - 1
                    drw(i) = dr(i)
                Next
                dtReturn.Rows.Add(drw)
            End While

。。。