MUHUA,为什么打开这个表要3分钟甚至会死机？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

三个表，《合同档案》含所有合同信息500条数据，《进度应收明细》有所有回款数据，1000条数据。

《进度应收》500条数据，在项目事件MainTable中通过Filler填充，将所有合同档案的数据填充到《进度应收》中的合同编号，然后在《进度应收》中的(DataColChanged)通过代码把合同档案的合同金额、付款方式、客户名称等填过来，并根据“合同编号”，统计《进度应收明细》的回款数据，为什么会死机呢？

（《进度应收》与《进度应收明细》、《回款明细》关联，并通过表达式计算应收金额、回款金额。

1、填充代码：

If MainTable.Name = "进度应收" Then

Dim f As New Filler

f.SourceTable = DataTables("合同档案")

f.SourceCols = "合同编号"

f.DataTable = DataTables("进度应收")

f.DataCols = "合同编号"

f.ExcludenullValue= True

f.ExcludeExistValue=True

f.Append=False

f.Fill()

End If

2、根据合同编号填充项目名称、客户名称、合同金额等代码

If e.DataCol.Name = "合同编号" Then '发生变化的是合同编号吗?在产品表找出该产品

Dim dr As DataRow

dr = DataTables("合同档案").Find("合同编号 = " & "'" & e.DataRow("合同编号") & "'" )

If dr IsNot Nothing '如果找到, 则设置各列内容

e.DataRow("项目名称")= dr("项目名称")

e.DataRow("客户名称")= dr("客户名称")

e.DataRow("分公司")= dr("分公司")

e.DataRow("年份")= dr("年份")

e.DataRow("签约人")= dr("签约人")

End If

3、根据《进度应收明细》重置相关表，计算应收金额代码：

If DataTables("进度应收明细").HasChanges Then

DataTables("项目总表").DataCols("合同编号").RaiseDataColChanged()

DataTables("进度应收").DataCols("合同编号").RaiseDataColChanged()

e.DataRow("日期")=Date.Today()

e.DataRow("录入")=User.name()

End If

[此贴子已经被作者于2013-5-2 11:56:34编辑过]

muhua	小大 2楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：等待验证帖子：3855 积分：20692 威望：0 精华：5 注册：2012/6/21 14:03:00	Post By：2013/5/2 12:01:00 [只看该作者] 用户已被锁定

主题：MUHUA,为什么打开这个表要3分钟甚至会死机？