以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  增加多行并赋值代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=13607)
--  作者：youyuweinihao
--  发布时间：2011/10/19 14:34:00
--  增加多行并赋值代码

请问如何实现

点击按钮增加7行，其中一列依次赋值为星期一、星期二、星期三、星期四、星期五、星期六、星期天
--  作者：狐狸爸爸
--  发布时间：2011/10/19 14:40:00
--  

简单写法：

 

Dim vals() As String = {"星期一","星期二","星期三","星期四","星期五","星期六","星期天"}
For i As Integer =0 To vals.Length - 1
   Tables("表A").AddNew()("第一列") = vals(i)
Next

 

标准写法：

 

Dim vals() As String = {"星期一","星期二","星期三","星期四","星期五","星期六","星期天"}
For i As Integer =0 To vals.Length - 1
   Dim r As Row = Tables("表A").AddNew()
   r("第一列") = vals(i)
Next
--  作者：小猪鑫鑫
--  发布时间：2011/10/19 20:50:00
--  
很好，又学了一招
--  作者：dj68301367
--  发布时间：2015/6/3 16:13:00
--  
厉害，如果用这个增加呢 ？  
Syscmd.Row.AddNews()
--  作者：Bin
--  发布时间：2015/6/3 16:14:00
--  
那就用

tables("XX").current("第一列") = vals(i)

但是最好还是用前面楼上的方法
--  作者：dj68301367
--  发布时间：2015/6/3 16:25:00
--  
BIN
 如果我原有表格中第一列就有数据，目前新增X行，每行第一列都输入字符“AAA”，代码怎么写
Syscmd.Row.AddNews() 
--  作者：大红袍
--  发布时间：2015/6/3 16:27:00
--  

For i As Integer = 1 To 10
    Dim nr As Row = Tables("表A").AddNew
    nr("第一列") = "AAA"
Next
--  作者：dj68301367
--  发布时间：2015/6/3 16:50:00
--  
这段我了解了，我的想法是每次增加的行数不一定（变量），Syscmd.Row.AddNews() 用这个系统命令增加的，
--  作者：大红袍
--  发布时间：2015/6/3 16:51:00
--  
 你可以自己做一个窗口增加多行，这样更自由。
--  作者：dj68301367
--  发布时间：2015/6/3 17:38:00
--  
再做一个窗口，理解不了？？？能讲详细点吗？