当前表要修改成其它表要怎么写？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

我想要实现的是，当前表的“审核”字段发生变化，则统计入库数量到采购表，但是红色部分改不好，一直报错。图片点击可在新窗口打开查看

If e.DataCol.Name = "审核" Then

datatables（“采购单”）.DataRow("已入库数量") = DataTables("入库明细").Compute("Sum(数量)","[产品名称] = '" & e.NewValue & "'")

End If

If e.DataCol.Name = "审核" Then

dim dr as datarow = datatables（“采购单”）.find("单号='" & e.datarow("单号") & "'")

if dr isnot nothing then

dr("已入库数量") = e.DataTable.Compute("Sum(数量)","[产品名称] = '" & e.NewValue & "'")

end if

End If

下载信息 [文件大小：下载次数： ]
点击浏览该文件:关联表.table

蓝老师，这个代码的事件仍然无法触发，麻烦您再指点下。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:关联表.zip

Select Case e.DataCol.Name

Case "审核" ,"产品名称","入库数量","采购单号"

Dim dr As DataRow = DataTables("采购明细").find("采购单号='" & e.DataRow("采购单号") & "' and 产品名称='" & e.DataRow("产品名称") & "'")

If dr IsNot Nothing Then

dr("已入库") = e.DataTable.Compute("Sum(入库数量)","采购单号='" & e.DataRow("采购单号") & "' and [产品名称] = '" & e.DataRow("产品名称") & "' and 审核='已审核'")

End If

End Select

========================================================

谢谢蓝老师，没想到要这么复杂的代码！图片点击可在新窗口打开查看

我还想请教下老师，上面的代码中

Select Case e.DataCol.Name

Case "审核" ,"产品名称","入库数量","采购单号"

这句是指当"审核" "产品名称""入库数量""采购单号"四个字段都发送变化的时候才触发事件，还是只要有一个字段变化就触发事件？我把代码改为

Case "审核"

也能统计，应该是只要一个条件改变就能触发，那么为什么要增加后面三个字段呢？学生愚钝，请老师指点迷津下，谢谢！

[此贴子已经被作者于2020/11/9 15:55:59编辑过]

只要有一个字段变化就触发事件。

如果审核后"产品名称","入库数量","采购单号"3个列不能再修改，可以不用加这3个判断

谢谢老师！我明白您为什么要加这三个条件了！图片点击可在新窗口打开查看

还是您经验丰富呀！我都没考虑到“即使审核后也有可能发送数量变化和产品名称变化的可能性”！这个确实太重要了！

拜谢老师

主题：当前表要修改成其它表要怎么写？