老师好！
请教一下，查找后写入数据，检查都有弹出对应弹窗，在被写入表看不到写入的值
Select Case e.DataCol.Name
Case "盘点数量"
e.DataRow("盘点日期") = now()
DataTables("盘点记录").save()
Dim pr7 As DataRow = DataTables("产品资料").SQLFind("物料编码='" & e.DataRow("物料编码") & "'")
msgbox(1.1)
If pr7 IsNot Nothing Then
msgbox(1.2)
pr7("盘点批次") = DataTables("盘点记录").SQLCompute("count(物料编码)","物料编码='" & e.DataRow("物料编码") & "'")
msgbox(1.3)
pr7("盘点数量") = e.DataRow("盘点数量") ' Tables("盘点记录").Current("盘点数量")
msgbox(1.4)
pr7("盘点差异") = e.DataRow("盘点差异") 'Tables("盘点记录").Current("盘点差异")
msgbox(1.5)
DataTables("产品资料").save()
End If
End If
End Select
谢谢！
DataTables("产品资料").save()改为
pr7.save()
SQLFind是直接查后台数据库的，返回的行是独立的，和已经加载的表没有什么关系，需要单独保存
1楼是给3个列赋值，那么SQLSetValue需要调用3次，连接3次数据库，效率反而低了