以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  新手求教！~~ 急死了  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=28664)
--  作者：lvjianjian
--  发布时间：2013/2/7 21:20:00
--  新手求教！~~ 急死了

If MessageBox.show("确定保存验收结果吗?","提示",MessageBoxButtons.YesNo) = DialogResult.Yes Then
Dim a As Integer
    For Each r1 As Row In Tables("收货验收")
         Dim r2 As Row = Tables("入库单明细").FindRow("明细ID"=r1("入库单明细ID"))
a =  Tables("入库单明细").FindRow(r2.Index = r1("入库单明细ID"))
r2("已收数量") = r2("已收数量") + r1("收货数量")
    Next
End If

 

 

这段代码报错。。。。

 

 
--  作者：y2287958
--  发布时间：2013/2/8 8:14:00
--  
Tables("入库单明细").FindRow("明细ID"=r1("入库单明细ID"))
这个返回的是行的位置而不是行
--  作者：lin_hailun
--  发布时间：2013/2/16 12:23:00
--  
以下是引用y2287958在2013-2-8 8:14:00的发言：
Tables("入库单明细").FindRow("明细ID"=r1("入库单明细ID"))
这个返回的是行的位置而不是行


正解，改一下楼主。

Dim r2 As Row = Tables("入库单明细").Rows(Tables("入库单明细").FindRow("明细ID"=r1("入库单明细ID")))
--  作者：程兴刚
--  发布时间：2013/2/16 12:50:00
--  
把这里改成这样： For Each r1 As Row In Tables("收货验收").rows