跨表锁定 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

1、代码放在采购订单表的DataColChanged事件，判断的是【Case "勾选"】勾选这个列的数据变化才会触发事件。

而仓库账表使用的是【Dim dts As List(Of DataRow) = DataTables("采购订单").SQLSelect("[单号] ='" & e.DataRow("单号") & "'")】。SQLSelect查询后台数据库的，查询结果和界面的主表没有任何关系，SQLSelect查询结果是无法触发任何事件的，改为Select

2、在删除的时候，已经把名称删除了，下面还使用名称进行查询，肯定是无法查询到任何数据的

If dr.IsNull("进仓数量") OrElse dr.IsNull("进仓单价") Then

'dr("名称") = Nothing 名称已经清空

'dr("规格") = Nothing

'dr("计量单位") = Nothing

'dr("单号") = Nothing

'dr("进仓单价") = Nothing

dr("进仓金额") = Nothing

Else

下面还使用名称进行条件查询肯定是无法查询到任何数据的

'Dim ds As DataRow = DataTables("采购订单").SQLFind("[单号] ='" & e.DataRow("单号") & "' And [名称] ='" & e.DataRow("名称") & "' And [规格]" & IIF(e.DataRow.IsNull("规格")," Is Null"," ='" & e.DataRow("规格") & "'") & "'","",0)

'If ds IsNot Nothing Then

自己考虑使用什么条件进行查询合适，或者不要清空名称和规格

如果要触发表事件，在表事件里处理，就必须操作已加载的数据。

如果是直接改后台数据的，需要重新加载，前台表格才能刷新

勾选和锁定使用的是SQLSelect，更改数据后没有保存

Else

msgbox(“这里有弹出吗”)

dt.Locked = False

dt("勾选") = False

End If

什么样的条件才解锁？自己判断好这个条件

这种代码不适合用在表事件，更加不适合做重置列，适合放到按钮处理。

A表查询B数据然后重新加载B表，B表受触发又查询A数据然后重新加载A表，而A表这时还没有处理完毕，数据却被重新加载了。

理论上不需要了。

另外建议看看：http://www.foxtable.com/webhelp/topics/1522.htm

msgbox(e.DataRow.OriginalValue("单号"))

msgbox(e.DataRow.OriginalValue("名称"))

msgbox(e.DataRow.OriginalValue("规格"))

Dim dts1 As List(Of DataRow) = DataTables("采购订单").SQLSelect("[单号] ='" & e.DataRow.OriginalValue("单号") & "' And [名称] ='" & e.DataRow.OriginalValue("名称") & "' And [规格]" & IIF(e.DataRow.OriginalValue("规格") IsNot Nothing," Is Null"," ='" & e.DataRow.OriginalValue("规格") & "'"))

我只能指出语法问题。业务逻辑的处理只能靠自己了

逻辑列不需要加单引号

OrElse [结账] = false) And

主题：跨表锁定