专家坐堂-按钮的click 按钮代码只有一行代码执行Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  按钮的click 按钮代码只有一行代码执行  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=115431)

--  作者：jinzhengbe
--  发布时间：2018/3/7 11:03:00
--  按钮的click 按钮代码只有一行代码执行

代码如下我想让 aa——table1表里的所有行都执行 r("qrcode") = codea

但是执行结果是，只有第一行能执行命令， qit行的qrcode 都没有发生变化

请问应该怎么处理？
代码是写在按钮的 cilck 事件里的

Dim shang As String = Tables("aa_table1").Current("shang")
Dim lou As String = Tables("aa_table1").Current("lou")
Dim hao As String = Tables("aa_table1").Current("hao")
Dim user As String = Tables("aa_table1").Current("user_name")
Dim danhao As String = Tables("aa_table1").Current("ordernum")

Dim codea = shang & lou & hao & user & danhao

Dim r As Row = Tables("aa_table1").Current

r("qrcode") = codea

--  作者：有点甜
--  发布时间：2018/3/7 11:43:00
--
For Each r As Row In Tables("aa_table1").rows
    Dim shang As String = r("shang")
    Dim lou As String = r("lou")
    Dim hao As String = r("hao")
    Dim user As String = r("user_name")
    Dim danhao As String = r("ordernum")

    Dim codea = shang & lou & hao & user & danhao
    r("qrcode") = codea
Next

--  作者：jinzhengbe
--  发布时间：2018/3/7 11:52:00
--
非常感谢 ~~~~