以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  这个循环错在哪里  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=58971)

--  作者:wuxianzuoji41
--  发布时间:2014/10/27 15:50:00
--  这个循环错在哪里

     Case "pilianghuifangriqi"

        For Each r As Row In Tables("窗口客户意向_tbl_yixiang").Rows
            If    r.Checked = True Then                
                Dim   oppid  As Integer = Tables("窗口客户意向_tbl_yixiang").current("opp_id")
                Functions.Execute("updatetb","crm_opportunity",1,"returnDate",Date.now(),"opp_id",oppid)
            End If
        Next
        messagebox.show("修改成功")


这个代码我要修改所有选定的行,为什么还是一次只能修改一行

--  作者:有点甜
--  发布时间:2014/10/27 15:53:00
--  
Dim   oppid  As Integer = r("opp_id")