主题：请教

请教 我在表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