以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]关于主表与关联表保存的问题！  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=15897)
--  作者：gaoyong30000
--  发布时间：2012/1/16 17:41:00
--  [求助]关于主表与关联表保存的问题！
保存按钮中的主表当前记录保存代码：
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

现在的问题是 每次保存了当前记录，关联表：意向客户历史回访情况  是整个表都保存的

请问如何只保存本次填充的记录？
--  作者：狐狸爸爸
--  发布时间：2012/1/16 18:11:00
--  

填充多行的话，逐行保存，还不如保存整个表效率高。

 

一定要的话：

 

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

 

 
--  作者：gaoyong30000
--  发布时间：2012/1/16 18:56:00
--  
不是逐行保存的   多谢老大了！！