-- 作者:jswjyjf
-- 发布时间:2014/8/11 9:05:00
--
在
BeforeDeleteDataRow
中事件中 写了以下代码
Dim xx As String xx=e.DataRow("仓库名称") Dim drs As List(Of DataRow) drs = DataTables("库存表").Select("仓库名称 =\'"& xx &"\' and 库存数量<>0") If drs.count=0 Then DataTables("库存表").DeleteFor("仓库名称 = \'" & xx & "\'") Else MessageBox.show("此仓库 有数据存在 不能删除") e.cancel=True End If
这些代码删除了 ,就不会出现问题了,不知道代码错在哪里
|