- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]统计表删除空行 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=164200)
-- 发布时间：2021/4/29 11:48:00
-- [求助]统计表删除空行
老师好，下面统计时有多余的空行想删除。
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
Next
Else
For i As Integer = 1 To 12
e.DataRow("M" & i) = Nothing
Next
End If
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
-- 发布时间：2021/4/29 11:58:00
--
截图说明一下
-- 发布时间：2021/4/29 12:21:00
--
老师，怎样删除第一行是空行。
此主题相关图片如下：image 1.png
[此贴子已经被作者于2021/4/29 12:36:58编辑过]
-- 发布时间：2021/4/29 13:45:00
--
比如：DataTables("出库明细").deletefor("客户名称 is null")
-- 发布时间：2021/4/29 14:46:00
--
谢谢老师
-- 发布时间：2021/5/9 10:43:00
--
老师好，我想下面的代码上加个判断如果数量和金额列没有数据就不复制到进销存表。
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("入库_期初金额")
Next
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 ......")
-- 发布时间：2021/5/10 9:51:00
--
以下是引用有点蓝在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
-- 发布时间：2021/5/10 10:22:00
--
提示是这种代码不能放到表格删除事件处理
-- 发布时间：2021/5/10 11:14:00
--
老师，我摆在项目事件里的。MainTableChanged