以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于增加多行的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=104363)

--  作者:scofields
--  发布时间:2017/7/27 22:24:00
--  关于增加多行的问题
老师,在窗口按钮中,我如何实现单击按钮,自动增加五行,并且销售单位和市场部自动列出?如图
图片点击可在新窗口打开查看此主题相关图片如下:qq截图20170727222253.jpg
图片点击可在新窗口打开查看

--  作者:有点甜
--  发布时间:2017/7/27 22:58:00
--  

增加5行这样写

 

Dim t As Table = Tables("表A")
For i As Integer = 1 To 5
    Dim nr As Row = t.AddNew
    nr("第一列") = 123
    nr("第二列") = 456
Next


--  作者:scofields
--  发布时间:2017/7/28 10:33:00
--  
要实现增加5行第三列,第一行的值=“A区域”,第二行的值=“B区域”,第三行的值 =“C区域”,怎么写呢?
--  作者:有点甜
--  发布时间:2017/7/28 10:40:00
--  
Dim t As Table = Tables("表A")
Dim ary1() As String = {"A", "B", "C", "D", "E"}
For i As Integer = 1 To 5
    Dim nr As Row = t.AddNew
    nr("第一列") = ary1(i-1)
Next