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

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

放到事件、按钮或者命令窗口执行都行。为了实现从另外两个表导入物料的数量和单价到物料信息表里面。

重新加载、同步、退出重新进入都没有数据改变。

If MessageBox.Show("结果" & vbcrlf & dr("货品代码") & vbcrlf & dr1("物料编码") & vbcrlf & dr1("实物数量") & vbcrlf & dr1("单价"),"检查",MessageBoxButtons.YesNo,MessageBoxIcon.Warning) =DialogResult.Yes Then  Return dr("完成导入")
把这个注释去掉，可以看到是有数据的，但是没有修改。是不是两个临时表不能套用？

试了，有符合条件的数据，但是物料信息表和维护LIS库存表数据都没有改变。

这样可以了，谢谢BIN版！能解顺便释一下逐行保存为什么不行吗？

哦，我感觉还是保存行比较省资源！无意中遇到了一个系统BUG，我还以为自己写的代码有问题，找了半天，再次感谢您的帮助。