代码如下 我想让 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
加好友 
发短信
Post By：2018/3/7 11:03:00 [显示全部帖子]
