逐行添加到目标表，然后保存，不过效率比较低。
,....
Dim dt As DataTable = smd.ExcuteReader
For Each dr1 As datarow = dt.Datarows
Dim dr2 As datarow = Datatables("acsss表名").Addnew
dr2("某列1") = dr1("某列1")
dr2("某列2") = dr1("某列2")
dr2("某列3") = dr1("某列3")
Next
Datatables("acsss表名").Save()
加好友 
发短信
Post By：2013/6/24 8:29:00 [显示全部帖子]
