在输入数据过程中会有这样一种情况：多条数据很多列内容都是一样的，只有一列或几列数据需要改变，故需要实现一个功能：1、在每行最后单元格按回车后自动增加行（已实现），并且部分列内容复制上一行的内容；2、同时另外增加一个按钮，点击以后增加新组，不继续前面的复制功能。关于1、自动增加行，我在表格里已经调好；关于复制内容我在表格 DateRowadded 中输入代码：
CurrentTable.Position = CurrentTable.Rows.Count -1 ‘将最后一行（新增行）变为当前行
Dim nr As Row = CurrentTable.Current '定义nr为当前行
Dim cr As Row = CurrentTable.Rows(CurrentTable.Current.Index -1) '定义cr为上一行
nr("当事人") = cr("当事人")
nr("发生情况") = cr("发生情况")
nr("发生时间") = cr("发生时间")
nr("工号") = cr("工号")
这样便能选择性复制部分单元格内容。
但是关于单独按钮新增组的代码不知道怎么写，请狐大大帮忙解决，谢谢！
加好友 
发短信
Post By：2017/8/18 10:14:00 [只看该作者]
