主题：关于信息输入的问题

在输入数据过程中会有这样一种情况：多条数据很多列内容都是一样的，只有一列或几列数据需要改变，故需要实现一个功能：1、在每行最后单元格按回车后自动增加行（已实现），并且部分列内容复制上一行的内容；2、同时另外增加一个按钮，点击以后增加新组，不继续前面的复制功能。

按钮代码

 

vars("不复制") = true

 

DataRowAdded事件

 

If vars("不复制") = False then

    '本来代码

End If

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:信息入录新增与新组.table

已试过，可用，不过要先把“增加”那个按钮点过才能正常执行。非常感谢老师指点

又有一个问题，按照之前输入之后，我又想导出的时候根据人物内容把“事件”内容合并起来导出，例如：

生成一个临时表

 

Dim g As New GroupTableBuilder("统计表1", DataTables("信息入录"))
g.Groups.AddDef("时间", DateGroupEnum.None)
g.Groups.AddDef("地点")
g.Groups.AddDef("人物")
g.Totals.AddDef("事件", AggregateEnum.Count)
g.Build()
Dim t As Table = Tables("统计表1")
t.DataTable.DataCols.Delete("事件")
t.DataTable.DataCols.Add("事件", Gettype(String), 255)
For Each r As Row In t.Rows
    r("事件") = DataTables("信息入录").GetComboListString("事件").replace("|", ",").trim(",")
Next
MainTable = t

谢谢“有点甜”老师，不过按照你的代码，我新添加一个人，发现每个人的事件内容都是把所有事件都合并在一起了，我希望的是同一个人的事件内容合并在一起，但是不同人不进行合并，也就是相当于分组统计，代码该怎么改一下，是不是该在GetComboListString后面加筛选条件？

Dim g As New GroupTableBuilder("统计表1", DataTables("信息入录"))
g.Groups.AddDef("时间", DateGroupEnum.None)
g.Groups.AddDef("地点")
g.Groups.AddDef("人物")
g.Totals.AddDef("事件", AggregateEnum.Count)
g.Build()
Dim t As Table = Tables("统计表1")
t.DataTable.DataCols.Delete("事件")
t.DataTable.DataCols.Add("事件", Gettype(String), 255)
For Each r As Row In t.Rows
    r("事件") = DataTables("信息入录").GetComboListString("事件", "时间 = #" & r("时间") & "# and 地点 = '" & r("地点") & "' and 人物 = '" & r("人物") & "'").replace("|", ",").trim(",")
Next
MainTable = t

非常感谢老师指导