国内最大的酷站演示中心! public function gettable(byval _reader as system.data.sqlclient.sqldatareader) as system.data.datatable on error resume next dim _table as system.data.datatable = _reader.getschematable() dim _dt as system.data.datatable = new system.data.datatable() dim _dc as system.data.datacolumn dim _row as system.data.datarow dim _al as system.collections.arraylist = new system.collections.arraylist() dim i = 0 for i = 0 to _table.rows.count() - 1 _dc = new system.data.datacolumn() if (not _dt.columns.contains(_table.rows(i)("columnname").tostring())) then _dc.columnname = _table.rows(i)("columnname").tostring() _dc.unique = convert.toboolean(_table.rows(i)("isunique")) _dc.allowdbnull = convert.toboolean(_table.rows(i)("allowdbnull")) _dc.readonly = convert.toboolean(_table.rows(i)("isreadonly")) _dc.readonly = convert.toboolean(_table.rows(i)("isreadonly")) _dc.readonly = convert.toboolean(_table.rows(i)("isreadonly")) _dc.readonly = convert.toboolean(_table.rows(i)("isreadonly")) _al.add(_dc.columnname) _dt.columns.add(_dc) end if next while _reader.read() _row = _dt.newrow() for i = 0 to _al.count _row(cstr(_al(i))) = _reader(cstr(_al(i))) next _dt.rows.add(_row) end while return _dt end function
