导入到关联表,可以简化为:
1、导入到子表
2、将新导入的数据的关联列,设置为父表当前行的关联列
所以代码可以这样写:
Dim pr As Row = Tables("父表").Row
dim cnt As Count = DataTables("子表").Datarows.Count
这里按常规编码导入数据到子表,你原来导入数据的代码复制到这里来
For i as integer = cnt to DataTables("子表").Datarows.Count -1
DataTables("子表").Datarows(i)("关联列") = pr("关联列")
next