两个表更新数据 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师，两个后台表

1.商品资料表

表名：条码货号，字段：

ean sku

2.盘点明细表，字段：

条码货号（无值）

盘点明细表的条码，就是条码货号的ean ，货号就相当于是条码货号表的 SKU

现在想把盘点明细表的货号（现在是NULL值），更新为对应条码货号表的 sku

我这样写，感觉太慢了：

Dim st As Date = Date.Now

'要测试耗时的代码

Dim cmd As new SQLCommand

cmd.C

Dim dt1 As DataTable '资料表

Dim dt2 As DataTable '盘点表

Dim dr1 As DataRow

Dim dr2 As DataRow

cmd.CommandText = "selec t * from 条码货号 "

dt1 = cmd.ExecuteReader()

cmd.CommandText = "selec t * from 盘点明细表 where 盘点日期 = '" & Date.Today & "' "

dt2 = cmd.ExecuteReader()

For Each dr2 In dt2.DataRows

dr1 = dt1.sqlfind("ean = '" & dr2("条码") & "'")

If dr1 IsNot Nothing Then

cmd.CommandText = " updat e 盘点明细表 set 货号 = '" & dr1("sku") & "' where 条码 = '" & dr1("ean") & "' and 货号 is null "

cmd.ExecuteNonQuery()

End If

output.Show("耗时: " & (Date.Now - st).TotalSeconds & "秒")

主题：两个表更新数据