cmd.CommandText = "select * FROM {回款} WHERE 订单编号= '" & e.values("编号") & "'"
dt= cmd.ExecuteReader()
If dt.datarows.count > 0 Then
cmd.CommandText = "select * FROM {产品资料} WHERE piao号= '" & dt.datarows(0)("piao号") & "'"
dt1= cmd.ExecuteReader(True)
If dt1.datarows.count > 0 Then
dt1.datarows(0)("回款记录") = dt.datarows(0)("订单编号")
dt1.save
End If
End If
或者一条sql搞定
cmd.CommandText = "update {产品资料} set 回款记录 = '" & e.values("编号") & "' where piao号 in (select piao号 from {回款} WHERE 订单编号= '" & e.values("编号") & "')"
cmd.ExecuteNonQuery