标题：[求助]如何在通过按钮向同一列的所有行写入相同内容

比如第一列有20行，想通过窗口中的按钮向第一列的20行中输入相同内容，并将这20行锁定。这个代码该如何写

for each dr as row in tables("xx").rows
dr("第一列") = "AAA"
dr.Locked = True
next

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列更好吧 ,其他列还可以编辑啊~ 

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