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("修改成功")
这个代码我要修改所有选定的行,为什么还是一次只能修改一行