- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]增加多行 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=23159)
-- 发布时间：2012/9/4 10:24:00
-- [求助]增加多行
请问，如何在一个关联表上增加多行，然后其中的几列等于最后一列的内容？
-- 发布时间：2012/9/4 11:22:00
--
什么意思？
举例说明。
-- 发布时间：2012/9/4 12:04:00
--
以下是引用狐狸爸爸在2012-9-4 11:22:00的发言：
什么意思？
举例说明。
此主题相关图片如下：批量增加数据.jpg
大概意思是这样的，麻烦狐爸看看！
-- 发布时间：2012/9/5 15:36:00
--
以下是引用lxhmax在2012-9-4 12:04:00的发言：
此主题相关图片如下：批量增加数据.jpg
大概意思是这样的，麻烦狐爸看看！
呃...你的意思是说：新增一行，填入数据以后，然后（自动）添加5行（依据填入的数据）？
-- 发布时间：2012/9/5 23:45:00
--
ctrl+d
-- 发布时间：2012/9/6 10:07:00
--
狐爸，这个问题还需要您帮我看看，就是克隆多行数据，然后其中的某几列引用被克隆行的数据~谢谢啦！
-- 发布时间：2012/9/6 10:41:00
--
不是不帮忙，我是理解不了你的问题
-- 发布时间：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
-- 发布时间：2012/9/6 12:01:00
--
Dim r1 Row = .Rows(.Rows.Count -1)
这句话提示“应为语句结束”，麻烦狐爸再帮忙看看~~太感谢了