主题：[求助]如何不打开数据表修改事件

If e.Table.Current Is Nothing Then '如果Current为Nothing

    Return '则返回

End If

Dim rw As Row = e.Table.Current

If rw Is Nothing Then

    Return '则返回

End If

If rw("清单号")="" Then

    Return '则返回

End If

SystemReady =  False

'messagebox.show(rw("清单号"))

If Tables("订单物品临时表").Current("产品号")="" Then Return

'messagebox.show(2)

If Tables("订单唯一码表").findrow("[清单号]='" & Tables("订单物品临时表").Current("清单号") & "'")=-1 Then Return

'messagebox.show(3)

If Tables("订单物品临时表").Rows.Count>0  Then Tables("订单唯一码表").filter="[清单号]='" & Tables("订单物品临时表").Current("清单号") & "'"

SystemReady =  True

CurrentChanged事件

都暂停执行了，肯定没反应啊，你具体要什么效果

 如果要判断当前行某些列必须输入数据应在在保存前判断