主题：利用临时表修改数据问题，代码运行正常，但数据没有改变，不知什么原因，请帮忙分析一下。

Dim dt As DataTable

Dim cmd As New SQLCommand
cmd.CommandText = "Select [_Identify],货品代码,库存数量,单价,完成导入 From {维护LIS库存}"
dt = cmd.ExecuteReader(True)
Dim dt1 As DataTable
Dim cmd1 As New SQLCommand
cmd1.CommandText = "Select [_Identify],物料编码,实物数量,单价 From {物料信息}"
dt1 = cmd1.ExecuteReader(True)
For Each dr As DataRow In dt.DataRows
    For Each dr1 As DataRow In dt1.DataRows
If dr("货品代码") = dr1("物料编码") Then
dr1("单价") = (dr1("实物数量") * dr1("单价") + dr("库存数量") * dr("单价")) / (dr1("实物数量") + dr("库存数量"))
dr1("实物数量") = dr1("实物数量") + dr("库存数量")
dr("完成导入")  = True
'If MessageBox.Show("结果" & vbcrlf & dr("货品代码") & vbcrlf & dr1("物料编码") & vbcrlf & dr1("实物数量") & vbcrlf & dr1("单价"),"检查",MessageBoxButtons.YesNo,MessageBoxIcon.Warning) =DialogResult.Yes Then  Return dr("完成导入")
dr.Save()
dr1.Save()
End If
Next
Next
MessageBox.Show("导入完毕!")

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:导入测试.foxdb