以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  改变所有被选中行的值  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=95475)

--  作者:jinzhengbe
--  发布时间:2017/1/20 17:42:00
--  改变所有被选中行的值
Dim t As Table = Tables("weixindanhao.weixin")
t.Select(0,0,t.rows.Count-1, t.cols.Count-1)
t.Current("jiesuan")= 1

我想把 weixindanhao.weixin里所有行的 jiesuan列 都 改成1

但是上面的代码好像不可以
只有当前行的值变成1了
写在按钮事件里的


请各位 大佬帮忙一下

[此贴子已经被作者于2017/1/20 17:42:40编辑过]

--  作者:有点色
--  发布时间:2017/1/20 18:02:00
--  
Dim t As Table = Tables("weixindanhao.weixin")
For Each r As Row In t.rows
    r("jiesuan")= 1
Next

--  作者:有点色
--  发布时间:2017/1/20 18:02:00
--  
Dim t As Table = Tables("weixindanhao.weixin")
For i As Integer = t.TopPosition To t.BottomPosition
    t.rows(i)("jiesuan")= 1
Next