以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]如何在通过按钮向同一列的所有行写入相同内容  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=3762)
--  作者：ybmjy
--  发布时间：2009/7/31 16:32:00
--  [求助]如何在通过按钮向同一列的所有行写入相同内容
比如第一列有20行，想通过窗口中的按钮向第一列的20行中输入相同内容，并将这20行锁定。这个代码该如何写
--  作者：狐哥
--  发布时间：2009/7/31 17:27:00
--  

for each dr as row in tables("xx").rows
dr("第一列") = "AAA"
dr.Locked = True
next
--  作者：mr725
--  发布时间：2009/7/31 17:33:00
--  
for i as integer = 1 to tables("A").count-1
    currenttable(i,"x列") = "你好！～"        \'x列的内容全部都是“你好！～”
next 

    Dim cl As Col  = CurrentTable.Cols("x列")
   cl.AllowEdit = False              \'锁定x列更好吧 ,其他列还可以编辑啊~ 


[此贴子已经被作者于2009-7-31 17:40:39编辑过]
--  作者：ybmjy
--  发布时间：2009/7/31 19:58:00
--  

还是二楼的各个符合我的要求，谢谢大家了哈！