Foxtable(狐表)用户栏目专家坐堂 → 这个循环错在哪里


  共有2368人关注过本帖树形打印复制链接

主题:这个循环错在哪里

帅哥哟,离线,有人找我吗?
wuxianzuoji41
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:884 积分:7061 威望:0 精华:0 注册:2013/3/5 8:42:00
这个循环错在哪里  发帖心情 Post By: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("修改成功")


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

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/10/27 15:53:00 [只看该作者]

Dim   oppid  As Integer = r("opp_id")

 回到顶部