- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]代码 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=56581)
-- 发布时间：2014/9/9 11:02:00
-- [求助]代码
此主题相关图片如下：多余的行.png
我的统计表多增加了一行空行
这是项目事件
If MainTable.Name = "采购动态分析" Then
Dim f As New Filler
DataTables("采购动态分析").DataRows.Clear() \'清除原有数据
f.SourceTable = DataTables("入库明细")
f.SourceCols = "供应商_名称"
f.DataTable = DataTables("采购动态分析")
f.DataCols = "客户"
f.Fill()
DataTables("采购动态分析").DataCols("采购_数量").Recalc()
End If
这是表事件
Dim ck As DataRow = e.DataRow
Dim xs As DataTable = DataTables("入库明细")
If e.DataCol.Name = "客户" Then
ck("采购_数量") = xs.Compute("Sum(入库_数量)","[供应商_名称] = \'" & ck("客户") & "\'")
ck("采购_金额") = xs.Compute("Sum(金额合计)","[供应商_名称] = \'" & ck("客户") & "\'")
End If
-- 发布时间：2014/9/9 11:06:00
--
因为你的数据里有空行.
-- 发布时间：2014/9/9 11:10:00
--
加入筛选条件
If MainTable.Name = "采购动态分析" Then
Dim f As New Filler
DataTables("采购动态分析").DataRows.Clear() \'清除原有数据
f.SourceTable = DataTables("入库明细")
f.SourceCols = "供应商_名称"
f.DataTable = DataTables("采购动态分析")
f.DataCols = "客户"
f.Filter = "供应商_名称 is not null"
f.Fill()
DataTables("采购动态分析").DataCols("采购_数量").Recalc()
End If
-- 发布时间：2014/9/9 11:58:00
--
老师，谢谢