主题：在关联表内高速合并

做个按钮：

Dim cnt as integer = DataTables("原始名单").Datarows.Count

写代码正常合并数据到原始名称

For i as integer = cnt to DataTables("原始名单").Datarows.Count -1

    DataTables("原始名单").Datarows(i)("关联列") = Tables("展会信息").Current("关联列")

next