此主题相关图片如下：qq图片20170628101114.png
If User.Group <> "管理" And e.DataRow("上锁") = True Then
MessageBox.Show("领导说了:已经结帐的行,只有她才能删除,别乱来!", "提示")
e.Cancel = True
End If
入库表事件BeforeDeleteDataRow
If User.Group <> "管理" And e.DataRow("上锁") = True Then
MessageBox.Show("领导说了:已经结帐的行,只有她才能删除,别乱来!", "提示")
e.Cancel = True
Else
e.DataRow("入库单号") = Nothing
End If
入库表事件CurrentChanged
Dim r As Row = Tables("入库单.入库").Current
If r IsNot Nothing Then
If Forms("窗口9").opened = True Then
Tables("窗口9_入库").filter = "入库单号 = '" & r("入库单号") & "'"
End If
Else
Tables("窗口9_入库").filter = "1=2"
End If
请问老师入库表事件BeforeDeleteDataRow中的代码可以删除吗？感觉代码效果有点重复
[此贴子已经被作者于2017/6/28 10:15:44编辑过]
加好友 
发短信
Post By：2017/6/28 10:15:00 [只看该作者]
