以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  请教  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=53053)
--  作者：jswjyjf
--  发布时间：2014/6/28 11:33:00
--  请教

请教 我在表datarowdeleting 事件中 加了代码 。出错了 ,该如何写

 

DataTables("库存表").DeleteFor("仓库名称 = \'" & e.DataRow("仓库名称") & "\'")

Dim drs As List(Of DataRow)
drs = DataTables("库存表").Select("仓库名称 =\'"& e.oldvalue &"\' and 库存数量<>0")
If drs.count=0 Then
DataTables("库存表").DeleteFor("仓库名称 = \'" & e.DataRow("仓库名称") & "\'")
Else
Else
messagebox.show("有数据 不能删除")
End If
--  作者：Bin
--  发布时间：2014/6/28 14:12:00
--  
在BEforDeleteROW 里写