android 屏幕的相对位置

参考地址：http://weblogs.asp.net/rosherove/archive/2004/01/22/61541.aspx

Public Shared Function GetDataFromDatareader(ByVal reader As SqlClient.SqlDataReader) As DataTable
Dim table As New DataTable
Dim fieldCount As Integer = reader.FieldCount
For iLoop As Integer = 1 To fieldCount
table.Columns.Add(reader.GetName(iLoop - 1), reader.GetFieldType(iLoop - 1))
Next
table.BeginLoadData()
Dim values(fieldCount - 1) As Object
While reader.Read
reader.GetValues(values)
table.LoadDataRow(values, True)
End While
table.EndLoadData()
Return table
End Function

以上适用与1.1和2.0

另外，2.0的可以简化为

table.Load(reader)

这是2.0的新增功能