- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 【求助】根据货名和出库编号来查找行，如果存在行，就计算值，如果当前行谋值等于或小于0时，删除当前行 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=102648)
-- 发布时间：2017/6/23 12:45:00
-- 【求助】根据货名和出库编号来查找行，如果存在行，就计算值，如果当前行谋值等于或小于0时，删除当前行
【求助】根据货名和出库编号来查找行，如果存在行，就计算值，如果当前行谋值等于或小于0时，删除当前行
Dim dr As DataRow = DataTables("销售产品_table4").Find("货名 = \'" & e.DataRow("货名") & "\' And 出库编号 = \'" & e.DataRow("销售年编号") & "\'")
If dr IsNot Nothing Then
dr("出库数量")= dr("出库数量") - e.DataRow("数量")
Else
If dr("出库数量") <= 0 Then
dr.Delete()
End If
End If
上述代码能够实现第一个出库数量的计算，但是就不能实现出库数量<=0时候的数据删除，求解！
-- 发布时间：2017/6/23 14:09:00
--
If dr("出库数量") <= 0 Then
dr.Delete()
dr.save
End If
-- 发布时间：2017/6/23 14:19:00
-- 回复：（有点蓝） If dr("出库数量") <= 0 Th...
还是没有删除数量为零的数据行
-- 发布时间：2017/6/23 14:24:00
--
学会调试，看代码弹出什么内容
Else
msgbox(dr("出库数量") )
If dr("出库数量") <= 0 Then
msgbox(1 )
dr.Delete()
End If
End If
-- 发布时间：2017/6/23 14:35:00
-- 回复：（有点蓝）学会调试，看代码弹出什么内容Elsems...
直接不弹内容了 附上例子 请多多指教 谢谢
-- 发布时间：2017/6/23 15:39:00
--
If e.DataRow("货名")=Nothing Then
Tables("销售产品_table1").Current.DataRow.Load(False)
Else
Dim dr As DataRow = DataTables("销售产品_table4").Find("货名 = \'" & e.DataRow("货名") & "\' And 出库编号 = \'" & e.DataRow("销售年编号") & "\'")
If dr IsNot Nothing Then
dr("出库数量")= dr("出库数量") - e.DataRow("数量")
If dr("出库数量") <= 0 Then
dr.Delete()
End If
End If
End If
-- 发布时间：2017/6/23 16:17:00
-- 回复：（有点蓝）If e.DataRow("货名")=Nothing Then&...
谢谢