保存按钮中的主表当前记录保存代码：
Tables("销售意向客户进度管制").current.save()
datatables("意向客户历史回访情况").save()
保存按钮中还有这段代码是将数据填充进关联表：
If Tables("销售意向客户进度管制").Position > 0 Then
If tr.Isnull("客户来源")=False And tr.Isnull("客户名称")=False And tr.Isnull("联系号码")=False And tr.Isnull("欲购车型")=False And tr.Isnull("意向级别")=False And tr.Isnull("最后联系日期")=False And tr.Isnull("最后一次回访情况")=False Then
Dim f As New Filler
f.SourceTable = DataTables("销售意向客户进度管制") '指定数据来源
f.SourceCols = ""_Identify,意向级别,最后联系日期,最后一次回访情况,备注" '指定数据来源列
f.DataTable = DataTables("意向客户历史回访情况") '指定数据接收表
f.DataCols = "编号,意向级别,最后联系日期,最后一次回访情况,备注" '指定数据接收列
f.ExcludeExistValue =True
f.ExcludeNullValue =False
f.Distinct =True
f.Append =True
f.Fill()
End If
End If
现在的问题是 每次保存了当前记录，关联表：意向客户历史回访情况 是整个表都保存的
请问如何只保存本次填充的记录？
填充多行的话，逐行保存，还不如保存整个表效率高。
一定要的话：
dim cnt as integer = datatables("xxx").datarows.count
'填充
for i as integer = cnt to datables("xxx").datarows.count - 1
datatabls("xxx").datarows(i).Save()
next