以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]增加多行  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=23159)

--  作者:lxhmax
--  发布时间:2012/9/4 10:24:00
--  [求助]增加多行

 

   请问,如何在一个关联表上增加多行,然后其中的几列等于最后一列的内容?


--  作者:狐狸爸爸
--  发布时间:2012/9/4 11:22:00
--  

什么意思?

举例说明。


--  作者:lxhmax
--  发布时间:2012/9/4 12:04:00
--  
以下是引用狐狸爸爸在2012-9-4 11:22:00的发言:

什么意思?

举例说明。


图片点击可在新窗口打开查看此主题相关图片如下:批量增加数据.jpg
图片点击可在新窗口打开查看

   大概意思是这样的,麻烦狐爸看看!


--  作者:lin_hailun
--  发布时间:2012/9/5 15:36:00
--  
以下是引用lxhmax在2012-9-4 12:04:00的发言:


图片点击可在新窗口打开查看此主题相关图片如下:批量增加数据.jpg
图片点击可在新窗口打开查看

   大概意思是这样的,麻烦狐爸看看!


呃...你的意思是说:新增一行,填入数据以后,然后(自动)添加5行(依据填入的数据)?

--  作者:lichenwudi
--  发布时间:2012/9/5 23:45:00
--  
ctrl+d
--  作者:lxhmax
--  发布时间:2012/9/6 10:07:00
--  

图片点击可在新窗口打开查看

   狐爸,这个问题还需要您帮我看看,就是克隆多行数据,然后其中的某几列引用被克隆行的数据~谢谢啦!


--  作者:狐狸爸爸
--  发布时间:2012/9/6 10:41:00
--  
不是不帮忙,我是理解不了你的问题
--  作者:lxhmax
--  发布时间:2012/9/6 10:48:00
--  

那我再描述下:

 

    就是我要批量添加多行数据,每一行中有几个单元格的数据是跟最后一行数据一样的!


--  作者:狐狸爸爸
--  发布时间:2012/9/6 11:31:00
--  

如果这样,你可以自己做个在关联表增加行的按钮,这样每次增加行,需要的列可以从最后一行继承内容:

 

if Tables("表1.表2").Rows.Count > 0 Then

    With Tables("表1.表2")

         Dim r1 Row = .Rows(.Rows.Count -1)

         Dim r2 As row  = .AddNew()

         r2("某列1") = r1("某列1")

         r2("某列2") = r1("某列3")

         r2("某列3") = r1("某列4")

    End with

Else

    Tables("表1.表2").AddNew
End If


--  作者:lxhmax
--  发布时间:2012/9/6 12:01:00
--  

Dim r1 Row = .Rows(.Rows.Count -1)

 

这句话提示“应为语句结束”,麻烦狐爸再帮忙看看~~太感谢了