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


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

主题:这个循环错在哪里

帅哥哟,离线,有人找我吗?
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("修改成功")


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

 回到顶部