[求助]统计表删除空行 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师好，下面统计时有多余的空行想删除。

If e.DataCol.name = "年份" OrElse e.DataCol.name = "客户名称" Then

If e.DataRow.Isnull("年份") = False AndAlso e.DataRow.Isnull("客户名称") = False Then

Dim filter1 As String = "客户 = '" & e.DataRow("客户名称") & "'"

Dim filter2 As String = "客户名称 = '" & e.DataRow("客户名称") & "'"

For i As Integer = 1 To 12

Dim d As Date = new Date(val(e.DataRow("年份")), i, 1)

Dim sum As Integer = DataTables("出库明细").compute("sum(出库_价税合计)", filter1 & " and 出库日期 >= #" & d & "# and 出库日期 < #" & d.addmonths(1) & "#")

Dim sum1 As Integer = DataTables("入库明细").compute("sum(入库_合计金额)", filter2 & " and 入库日期 >= #" & d & "# and 入库日期 < #" & d.addmonths(1) & "#")

'e.DataRow("M" & i) = sum

e.DataRow("M" & i) = sum + sum1

Else

For i As Integer = 1 To 12

e.DataRow("M" & i) = Nothing

End If

Dim dr As DataRow = e.DataRow

Select Case e.DataCol.Name

Case "M1","M2","M3","M4","M5","M6","M7","M8","M9","M10","M11","M12"

If dr.IsNull("M1") OrElse dr.IsNull("M2") OrElse dr.IsNull("M3") OrElse dr.IsNull("M4") OrElse dr.IsNull("M5") OrElse dr.IsNull("M6") OrElse dr.IsNull("M7") OrElse dr.IsNull("M8") OrElse dr.IsNull("M9") OrElse dr.IsNull("M10") OrElse dr.IsNull("M11") OrElse dr.IsNull("M12") Then

dr("年度合计") = Nothing

Else

dr("年度合计") = dr("M1") + dr("M2") + dr("M3") + dr("M4") + dr("M5") + dr("M6") + dr("M7") + dr("M8") + dr("M9") + dr("M10") + dr("M11") + dr("M12")

End If

End Select

老师，怎样删除第一行是空行。

此主题相关图片如下：image 1.png

[此贴子已经被作者于2021/4/29 12:36:58编辑过]

老师好，我想下面的代码上加个判断如果数量和金额列没有数据就不复制到进销存表。

For Each dr As DataRow In DataTables("库存").Select("日期 is not null")

Dim nr As Row = MainTable.AddNew

nr("日期") = dr("日期")

nr("商品ID") = dr("商品ID")

nr("商品名称") = dr("商品名称")

nr("来源") = dr("来源")

nr("规格") = dr("规格")

nr("期初库存_数量") = dr("入库_期初数量")

''' nr("期初库存_单价") = dr("期初_单价")

'''nr("单位") = dr("期初_单位")

nr("期初库存_金额") = dr("入库_期初金额")

Tables("进销存").sort="商品ID,日期"

MainTable.ResumeRedraw

End If

以下是引用有点蓝在2021/5/9 21:48:00的发言：
For Each dr As DataRow In DataTables("库存").Select("日期 is not null and 数量 is not null and ......")

老师，上面代码效果有的，有报错。

此主题相关图片如下：image 1.png

老师，我摆在项目事件里的。MainTableChanged

主题：[求助]统计表删除空行