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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 按钮的click 按钮代码只有一行代码执行

共有2279人关注过本帖树形打印复制链接主题：按钮的click 按钮代码只有一行代码执行

jinzhengbe

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1062 积分：9781 威望：0 精华：0 注册：2012/3/13 5:23:00

按钮的click 按钮代码只有一行代码执行 发帖心情

Post By：2018/3/7 11:03:00 [只看该作者]

代码如下我想让 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

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1062 积分：9781 威望：0 精华：0 注册：2012/3/13 5:23:00

Post By：2018/3/7 11:52:00 [只看该作者]

非常感谢 ~~~~

下一主题 >> << 上一主题

主题：按钮的click 按钮 代码 只有一行代码执行

主题：按钮的click 按钮代码只有一行代码执行