专家坐堂-选定行后通过关联列自动加载Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim fdr = DataTables("计量汇总").find("项目名称 = \'" & e.DataRow("项目名称") & "\' And 施工合同段 = \'" & e.DataRow("施工合同段") & "\'", "计量期次 desc")

If fdr Is Nothing Then

e.DataRow("第100章2") = 0

Else

e.DataRow("第100章2") = DataTables("计量汇总").compute("sum(第100章)", "项目名称 = \'" & e.DataRow("项目名称") & "\' And 施工合同段 = \'" & e.DataRow("施工合同段") & "\'") - fdr("第100章")

End If

CurrentChanged事件代码：

Dim r As Row = Tables("计量汇总").Current

If r Is Nothing Then \'如果Current为Nothing

Return \'则返回

End If

DataTables("零号清单").LoadFilter = "项目名称 =\'" & r("项目名称") & "\' And 施工合同段 =\'" & r("施工合同段") & "\'"

DataTables("零号清单").Load

计算按钮代码：

Dim b As New SQLGroupTableBuilder("统计表1","中间计量表")

b.C

b.Groups.AddDef("项目名称") \'根据产品分组

b.Groups.AddDef("施工合同段") \'根据产品分组

b.Groups.AddDef("计量期次") \'根据产品分组

b.Groups.AddDef("章节") \'根据产品分组

b.Totals.AddExp("第100章","case when 章节 = \'100\' then Round(申报数量 * 单价,0) else 0 end")

b.Totals.AddExp("第200章","case when 章节 = \'200\' then Round(申报数量 * 单价,0) else 0 end")

b.Totals.AddExp("第300章","case when 章节 = \'300\' then Round(申报数量 * 单价,0) else 0 end")

b.Totals.AddExp("第400章","case when 章节 = \'400\' then Round(申报数量 * 单价,0) else 0 end")

b.Totals.AddExp("第500章","case when 章节 = \'500\' then Round(申报数量 * 单价,0) else 0 end")

b.Totals.AddExp("第600章","case when 章节 = \'600\' then Round(申报数量 * 单价,0) else 0 end")

b.Totals.AddExp("第700章","case when 章节 = \'700\' then Round(申报数量 * 单价,0) else 0 end")

b.Totals.AddExp("第800章","case when 章节 = \'800\' then Round(申报数量 * 单价,0) else 0 end")

b.Totals.AddExp("第900章","case when 章节 = \'900\' then Round(申报数量 * 单价,0) else 0 end")

b.Build \'生成统计表

\'MainTable = Tables("统计表1") \'打开生成的统计表

DataTables("计量汇总").DataRows.Clear

Dim Cols1() As String = {"项目名称","施工合同段","计量期次","第100章","第200章","第300章","第400章","第500章","第600章","第700章","第800章","第900章"}\'指定数据来源列

Dim Cols2() As String = {"项目名称","施工合同段","计量期次","第100章","第200章","第300章","第400章","第500章","第600章","第700章","第800章","第900章"}\'指定数据接收表

For Each dr1 As DataRow In DataTables("统计表1").Select("[计量期次] > 0")

Dim dr2 As DataRow = DataTables("计量汇总").Find("项目名称 = \'" & dr1("项目名称") & "\' and 施工合同段 = \'" & dr1("施工合同段") & "\' and 计量期次 = \'" & dr1("计量期次") & "\'")

If dr2 Is Nothing Then

dr2 = DataTables("计量汇总").AddNew()

End If

For i As Integer = 0 To Cols1.Length -1

dr2(Cols2(i)) = dr1(Cols1(i))

当把CurrentChanged事件代码改成如下，点击计算按钮时则出现如图错误：

CurrentChanged事件代码：

Dim r As Row = Tables("计量统计.计量汇总").Current

If r Is Nothing Then \'如果Current为Nothing

Return \'则返回

End If

DataTables("零号清单").LoadFilter = "项目名称 =\'" & r("项目名称") & "\' And 施工合同段 =\'" & r("施工合同段") & "\'"

DataTables("零号清单").Load

错误提示：

.NET Framework 版本：2.0.50727.8937

Foxtable 版本：2017.12.18.1

错误所在事件：计量汇总,CurrentChanged

详细错误信息：

值不能为空。

参数名: key