| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- [求助]关于主表与关联表保存的问题！ (http://www.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 -- 不是逐行保存的 多谢老大了！！ |