主题：从FT内部表 insert into 到同表结构的 外部表 ，遍历每一行，插入，速度很慢

从FT内部表 insert into 到同表结构的  外部表 ，遍历每一行，插入，速度很慢

代码：

Dim cmd As New SQLCommand
cm d.C
For Each dr As DataRow In DataTables("VIP会员基本信息").DataRows
cmd.CommandText =" insert into VIP会员基本信息(会员卡号,会员类型,会员系列,旧卡号,姓名,性别,出生日期,年龄,身份证,省份,城市,手机,电话,邮编,地址,邮箱,纪念日,建档日期,建档人,会员状态,发卡日期,单位,发卡单位,门店,门店名称,了解途径,鞋码,服装尺码,喜欢运动,喜欢色系,最高学历,月收入,职业,婚姻状况,喜爱的休闲方式,喜爱的礼品类型,特长,喜爱的活动类型) values ( '" & dr("会员卡号") & "','" & dr("会员类型") & "','" & dr("会员系列") & "','" & dr("旧卡号") & "','" & dr("姓名") & "','" & dr("性别") & "','" & dr("出生日期") & "','" & dr("年龄") & "','" & dr("身份证") & "','" & dr("省份") & "','" & dr("城市") & "','" & dr("手机") & "','" & dr("电话") & "','" & dr("邮编") & "','" & dr("地址") & "','" & dr("邮箱") & "','" & dr("纪念日") & "','" & dr("建档日期") & "','" & dr("建档人") & "','" & dr("会员状态") & "','" & dr("发卡日期") & "','" & dr("单位") & "','" & dr("发卡单位") & "','" & dr("门店") & "','" & dr("门店名称") & "','" & dr("了解途径") & "','" & dr("鞋码") & "','" & dr("服装尺码") & "','" & dr("喜欢运动") & "','" & dr("喜欢色系") & "','" & dr("最高学历") & "','" & dr("月收入") & "','" & dr("职业") & "', '" & dr("婚姻状况") & "','" & dr("喜爱的休闲方式") & "','" & dr("喜爱的礼品类型") & "','" & dr("特长") & "','" & dr("喜爱的活动类型") & "' )"
cmd.ExecuteNonQuery()
Next
messagebox.show( "成功插入数据 !","提示", MessageBoxButtons.ok, MessageBoxIcon.Information)

 循环前后，加上事务，一起提交

http://www.foxtable.com/help/topics/2933.htm