老师好！
请教一下，查找后写入数据，检查都有弹出对应弹窗，在被写入表看不到写入的值
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
谢谢！
加好友 
发短信
Post By：2024/6/19 15:07:00 [显示全部帖子]
