专家坐堂-[求助]将sqldatareader转变成datatableFoxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

DataTables("X").DataRows.Clear

Dim st1 As Date = Date.Now

Dim conn As MySql.Data.MySqlClient.MySqlConnection

Dim cmd As MySql.Data.MySqlClient.MySqlCommand

Dim connStr As String = "server=127.0.0.1; port=3306; user id=root; password=toor; database=CS;CharSet=utf8"

conn = New MySql.Data.MySqlClient.MySqlConnection(connStr)

conn.Open

Dim mda As New MySql.Data.MySqlClient.MySQLDataAdapter("S elect * from X where 自定义条件", conn)

Dim ds As New System.Data.DataSet()

mda.Fill(ds, "TableTemp")

conn.close

output.Show("耗时: " & (Date.Now - st1).TotalSeconds & "秒") ‘这个很快，几乎是秒完

Dim n As Integer = ds.Tables(0).Rows.Count

DataTables("X").AddNew(n)

output.Show("加行耗时: " & (Date.Now - st1).TotalSeconds & "秒") ‘这个速度就有影响了，测试一般要7秒左右

For i As Integer = 0 To n - 1

Dim dr As DataRow = DataTables("X").DataRows(i)

Dim r As System.Data.DataRow = ds.Tables(0).Rows(i)

For Each c As DataCol In DataTables("X").DataCols

dr(c.Name) = r(c.Name)

output.Show("耗时: " & (Date.Now - st1).TotalSeconds & "秒") ‘这个用时太长了，我的电脑上光这一段就要23秒左右。

要是能快速地将ds的数据转到datatables("X")中去，那就很好了。