以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 移除的行在继续操作时怎么恢复? (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=127902) |
-- 作者:kljbdjz -- 发布时间:2018/11/24 16:18:00 -- 移除的行在继续操作时怎么恢复? 此主题相关图片如下:11.png 如上图,目前是日期发生变化时,会显示当天的数据,同时询盘等于0的行会自动移除,但是出现了一个问题。 当我更改日期后,会在已经执行过移除行的表中,继续执行询盘等于0时移除行的操作,这样就会造成行越来越少。 怎么在更改日期后,先还原正常的表后,再去执行询盘等于0时移除行? |
-- 作者:有点蓝 -- 发布时间:2018/11/24 16:26:00 -- 更改日期前,重新加载表数据:http://www.foxtable.com/webhelp/scr/1928.htm |
-- 作者:kljbdjz -- 发布时间:2018/11/24 16:52:00 -- 日期的事件没有值改变前执行 此主题相关图片如下:22.png 日期的事件没有值改变前执行,只有值改变后执行,
|
-- 作者:有点蓝 -- 发布时间:2018/11/24 17:09:00 -- 加载的操作放到您valuechanged原来的代码之前即可 |
-- 作者:kljbdjz -- 发布时间:2018/11/24 17:13:00 -- 此主题相关图片如下:22.png 还是不行,操作是否正确?
|
-- 作者:有点蓝 -- 发布时间:2018/11/24 17:27:00 -- 这个事件完整代码贴出来 |
-- 作者:kljbdjz -- 发布时间:2018/11/25 9:27:00 -- Dim tbx As WinForm.DateTimePicker = e.Form.Controls("日期") \'定义输入的文本变量 Dim str As Date = tbx.Value Dim wek As WinForm.TextBox = e.Form.Controls("TextBox1") wek.Value = Format(str, "dddd") \'定义星期几 Dim st() As String = {"百度竞价","百度信息流","360竞价","搜狗竞价","神马竞价","朋友圈","小视频","360信息流", "广点通","众盟", "公众微信","淘宝","株洲在线","保驾护航","信用家","自然搜索","置换","其它", "合计"} Dim dqz As String() = {"株洲","湘潭","衡阳","长沙"} For Each dq As String In dqz For i1 As Integer = 0 To Tables("每日播报表_" & dq & "").Rows.Count - 1 If st(i1) = "合计" Then Tables("每日播报表_" & dq & "").Rows(i1)("第二列") = DataTables("询盘表").Compute("count(编号)","[询盘时间] = \'" & str & "\' and [地区] = \'" & dq & "\'") Tables("每日播报表_" & dq & "").Rows(i1)("第三列") = DataTables("留档表").Compute("count(编号)","[询盘时间] = \'" & str & "\' and [地区] = \'" & dq & "\'") Tables("每日播报表_" & dq & "").Rows(i1)("第四列") = DataTables("上门表").Compute("count(编号)","[上门日期] = \'" & str & "\' and [地区] = \'" & dq & "\'") Tables("每日播报表_" & dq & "").Rows(i1)("第五列") = DataTables("交定表").Compute("count(编号)","[交定日期] = \'" & str & "\' and [地区] = \'" & dq & "\'") Tables("每日播报表_" & dq & "").Rows(i1)("第六列") = DataTables("施工表").Compute("count(编号)","[施工日期] = \'" & str & "\' and [地区] = \'" & dq & "\'") Tables("每日播报表_" & dq & "").Rows(i1)("第七列") = DataTables("" & dq & "消费表").Compute("sum(合计_消费)","[日期] = \'" & str & "\'") Tables("每日播报表_" & dq & "").Rows(i1)("第八列") = DataTables("" & dq & "消费表").Compute("sum(合计_点击)","[日期] = \'" & str & "\'") Tables("每日播报表_" & dq & "").Rows(i1)("第九列") = DataTables("" & dq & "消费表").Compute("sum(合计_展现)","[日期] = \'" & str & "\'") Tables("每日播报表_" & dq & "").Rows(i1)("第十列") = DataTables("" & dq & "消费表").Compute("sum(合计_均点价)","[日期] = \'" & str & "\'") Tables("每日播报表_" & dq & "").Rows(i1)("点击率") = DataTables("" & dq & "消费表").Compute("sum(合计_点击率)","[日期] = \'" & str & "\'") Else Tables("每日播报表_" & dq & "").Rows(i1)("第二列") = DataTables("询盘表").Compute("count(编号)","[询盘时间] = \'" & str & "\' and [询盘来源] = \'" & st(i1) & "\' and [地区] = \'" & dq & "\'") Tables("每日播报表_" & dq & "").Rows(i1)("第三列") = DataTables("留档表").Compute("count(编号)","[询盘时间] = \'" & str & "\' and [询盘来源] = \'" & st(i1) & "\' and [地区] = \'" & dq & "\'") Tables("每日播报表_" & dq & "").Rows(i1)("第四列") = DataTables("上门表").Compute("count(编号)","[上门日期] = \'" & str & "\' and [询盘来源] = \'" & st(i1) & "\' and [地区] = \'" & dq & "\'") Tables("每日播报表_" & dq & "").Rows(i1)("第五列") = DataTables("交定表").Compute("count(编号)","[交定日期] = \'" & str & "\' and [询盘来源] = \'" & st(i1) & "\' and [地区] = \'" & dq & "\'") Tables("每日播报表_" & dq & "").Rows(i1)("第六列") = DataTables("施工表").Compute("count(编号)","[施工日期] = \'" & str & "\' and [询盘来源] = \'" & st(i1) & "\' and [地区] = \'" & dq & "\'") If st(i1) = "360竞价" Then Tables("每日播报表_" & dq & "").Rows(i1)("第七列") = DataTables("" & dq & "消费表").Compute("sum(点睛竞价_消费)","[日期] = \'" & str & "\'") Tables("每日播报表_" & dq & "").Rows(i1)("第八列") = DataTables("" & dq & "消费表").Compute("sum(点睛竞价_点击)","[日期] = \'" & str & "\'") Tables("每日播报表_" & dq & "").Rows(i1)("第九列") = DataTables("" & dq & "消费表").Compute("sum(点睛竞价_展现)","[日期] = \'" & str & "\'") Tables("每日播报表_" & dq & "").Rows(i1)("第十列") = DataTables("" & dq & "消费表").Compute("sum(点睛竞价_均点价)","[日期] = \'" & str & "\'") Tables("每日播报表_" & dq & "").Rows(i1)("点击率") = DataTables("" & dq & "消费表").Compute("sum(点睛竞价_点击率)","[日期] = \'" & str & "\'") Else If st(i1) = "360信息流" Then Tables("每日播报表_" & dq & "").Rows(i1)("第七列") = DataTables("" & dq & "消费表").Compute("sum(点睛信息流_消费)","[日期] = \'" & str & "\'") Tables("每日播报表_" & dq & "").Rows(i1)("第八列") = DataTables("" & dq & "消费表").Compute("sum(点睛信息流_点击)","[日期] = \'" & str & "\'") Tables("每日播报表_" & dq & "").Rows(i1)("第九列") = DataTables("" & dq & "消费表").Compute("sum(点睛信息流_展现)","[日期] = \'" & str & "\'") Tables("每日播报表_" & dq & "").Rows(i1)("第十列") = DataTables("" & dq & "消费表").Compute("sum(点睛信息流_均点价)","[日期] = \'" & str & "\'") Tables("每日播报表_" & dq & "").Rows(i1)("点击率") = DataTables("" & dq & "消费表").Compute("sum(点睛信息流_点击率)","[日期] = \'" & str & "\'") Else If st(i1) <> "公众微信" And st(i1) <> "淘宝" And st(i1) <> "自然搜索" And st(i1) <> "置换" And st(i1) <> "其它" And st(i1) <> "株洲在线" And st(i1) <> "保驾护航" And st(i1) <> "信用家" Then Tables("每日播报表_" & dq & "").Rows(i1)("第七列") = DataTables("" & dq & "消费表").Compute("sum([" & st(i1) & "_消费])","[日期] = \'" & str & "\'") Tables("每日播报表_" & dq & "").Rows(i1)("第八列") = DataTables("" & dq & "消费表").Compute("sum([" & st(i1) & "_点击])","[日期] = \'" & str & "\'") Tables("每日播报表_" & dq & "").Rows(i1)("第九列") = DataTables("" & dq & "消费表").Compute("sum([" & st(i1) & "_展现])","[日期] = \'" & str & "\'") Tables("每日播报表_" & dq & "").Rows(i1)("第十列") = DataTables("" & dq & "消费表").Compute("sum([" & st(i1) & "_均点价])","[日期] = \'" & str & "\'") Tables("每日播报表_" & dq & "").Rows(i1)("点击率") = DataTables("" & dq & "消费表").Compute("sum([" & st(i1) & "_点击率])","[日期] = \'" & str & "\'") End If End If Next \'删除询盘为0及消费为0的行 Dim drs As List(Of DataRow) drs = DataTables("每日播报表_" & dq & "").Select("[第二列] = 0 And [第七列] Is Null") For Each dr As DataRow In drs dr.Remove Next Next Tables("每日播报表_合计").Rows(0)("第二列") = DataTables("询盘表").Compute("count(编号)","[询盘时间] = \'" & str & "\' and [询盘来源] = \'百度竞价\' ") Tables("每日播报表_合计").Rows(0)("第三列") = DataTables("留档表").Compute("count(编号)","[询盘时间] = \'" & str & "\' and [询盘来源] = \'百度竞价\' ") Tables("每日播报表_合计").Rows(0)("第四列") = DataTables("上门表").Compute("count(编号)","[上门日期] = \'" & str & "\' and [询盘来源] = \'百度竞价\' ") Tables("每日播报表_合计").Rows(0)("第五列") = DataTables("交定表").Compute("count(编号)","[交定日期] = \'" & str & "\' and [询盘来源] = \'百度竞价\' ") Tables("每日播报表_合计").Rows(0)("第六列") = DataTables("施工表").Compute("count(编号)","[施工日期] = \'" & str & "\' and [询盘来源] = \'百度竞价\' ") Tables("每日播报表_合计").Rows(0)("第七列") = DataTables("株洲消费表").Compute("sum(百度竞价_消费)","[日期] = \'" & str & "\'") + DataTables("湘潭消费表").Compute("sum(百度竞价_消费)","[日期] = \'" & str & "\'") + DataTables("衡阳消费表").Compute("sum(百度竞价_消费)","[日期] = \'" & str & "\'") + DataTables("长沙消费表").Compute("sum(百度竞价_消费)","[日期] = \'" & str & "\'") Tables("每日播报表_合计").Rows(0)("第八列") = DataTables("株洲消费表").Compute("sum(百度竞价_点击)","[日期] = \'" & str & "\'") + DataTables("湘潭消费表").Compute("sum(百度竞价_点击)","[日期] = \'" & str & "\'") + DataTables("衡阳消费表").Compute("sum(百度竞价_点击)","[日期] = \'" & str & "\'") + DataTables("长沙消费表").Compute("sum(百度竞价_点击)","[日期] = \'" & str & "\'") Tables("每日播报表_合计").Rows(0)("第九列") = DataTables("株洲消费表").Compute("sum(百度竞价_展现)","[日期] = \'" & str & "\'") + DataTables("湘潭消费表").Compute("sum(百度竞价_展现)","[日期] = \'" & str & "\'") + DataTables("衡阳消费表").Compute("sum(百度竞价_展现)","[日期] = \'" & str & "\'") + DataTables("长沙消费表").Compute("sum(百度竞价_展现)","[日期] = \'" & str & "\'") Tables("每日播报表_合计").Rows(1)("第二列") = DataTables("询盘表").Compute("count(编号)","[询盘时间] = \'" & str & "\' and [询盘来源] = \'百度信息流\' ") Tables("每日播报表_合计").Rows(1)("第三列") = DataTables("留档表").Compute("count(编号)","[询盘时间] = \'" & str & "\' and [询盘来源] = \'百度信息流\' ") Tables("每日播报表_合计").Rows(1)("第四列") = DataTables("上门表").Compute("count(编号)","[上门日期] = \'" & str & "\' and [询盘来源] = \'百度信息流\' ") Tables("每日播报表_合计").Rows(1)("第五列") = DataTables("交定表").Compute("count(编号)","[交定日期] = \'" & str & "\' and [询盘来源] = \'百度信息流\' ") Tables("每日播报表_合计").Rows(1)("第六列") = DataTables("施工表").Compute("count(编号)","[施工日期] = \'" & str & "\' and [询盘来源] = \'百度信息流\' ") Tables("每日播报表_合计").Rows(1)("第七列") = DataTables("株洲消费表").Compute("sum(百度信息流_消费)","[日期] = \'" & str & "\'") + DataTables("湘潭消费表").Compute("sum(百度信息流_消费)","[日期] = \'" & str & "\'") + DataTables("衡阳消费表").Compute("sum(百度信息流_消费)","[日期] = \'" & str & "\'") + DataTables("长沙消费表").Compute("sum(百度信息流_消费)","[日期] = \'" & str & "\'") Tables("每日播报表_合计").Rows(1)("第八列") = DataTables("株洲消费表").Compute("sum(百度信息流_点击)","[日期] = \'" & str & "\'") + DataTables("湘潭消费表").Compute("sum(百度信息流_点击)","[日期] = \'" & str & "\'") + DataTables("衡阳消费表").Compute("sum(百度信息流_点击)","[日期] = \'" & str & "\'") + DataTables("长沙消费表").Compute("sum(百度信息流_点击)","[日期] = \'" & str & "\'") Tables("每日播报表_合计").Rows(1)("第九列") = DataTables("株洲消费表").Compute("sum(百度信息流_展现)","[日期] = \'" & str & "\'") + DataTables("湘潭消费表").Compute("sum(百度信息流_展现)","[日期] = \'" & str & "\'") + DataTables("衡阳消费表").Compute("sum(百度信息流_展现)","[日期] = \'" & str & "\'") + DataTables("长沙消费表").Compute("sum(百度信息流_展现)","[日期] = \'" & str & "\'") Tables("每日播报表_合计").Rows(2)("第二列") = DataTables("询盘表").Compute("count(编号)","[询盘时间] = \'" & str & "\' and [询盘来源] = \'360竞价\' ") Tables("每日播报表_合计").Rows(2)("第三列") = DataTables("留档表").Compute("count(编号)","[询盘时间] = \'" & str & "\' and [询盘来源] = \'360竞价\' ") Tables("每日播报表_合计").Rows(2)("第四列") = DataTables("上门表").Compute("count(编号)","[上门日期] = \'" & str & "\' and [询盘来源] = \'360竞价\' ") Tables("每日播报表_合计").Rows(2)("第五列") = DataTables("交定表").Compute("count(编号)","[交定日期] = \'" & str & "\' and [询盘来源] = \'360竞价\' ") Tables("每日播报表_合计").Rows(2)("第六列") = DataTables("施工表").Compute("count(编号)","[施工日期] = \'" & str & "\' and [询盘来源] = \'360竞价\' ") Tables("每日播报表_合计").Rows(2)("第七列") = DataTables("株洲消费表").Compute("sum(点睛竞价_消费)","[日期] = \'" & str & "\'") + DataTables("湘潭消费表").Compute("sum(点睛竞价_消费)","[日期] = \'" & str & "\'") + DataTables("衡阳消费表").Compute("sum(点睛竞价_消费)","[日期] = \'" & str & "\'") + DataTables("长沙消费表").Compute("sum(点睛竞价_消费)","[日期] = \'" & str & "\'") Tables("每日播报表_合计").Rows(2)("第八列") = DataTables("株洲消费表").Compute("sum(点睛竞价_点击)","[日期] = \'" & str & "\'") + DataTables("湘潭消费表").Compute("sum(点睛竞价_点击)","[日期] = \'" & str & "\'") + DataTables("衡阳消费表").Compute("sum(点睛竞价_点击)","[日期] = \'" & str & "\'") + DataTables("长沙消费表").Compute("sum(点睛竞价_点击)","[日期] = \'" & str & "\'") Tables("每日播报表_合计").Rows(2)("第九列") = DataTables("株洲消费表").Compute("sum(点睛竞价_展现)","[日期] = \'" & str & "\'") + DataTables("湘潭消费表").Compute("sum(点睛竞价_展现)","[日期] = \'" & str & "\'") + DataTables("衡阳消费表").Compute("sum(点睛竞价_展现)","[日期] = \'" & str & "\'") + DataTables("长沙消费表").Compute("sum(点睛竞价_展现)","[日期] = \'" & str & "\'") Tables("每日播报表_合计").Rows(3)("第二列") = DataTables("询盘表").Compute("count(编号)","[询盘时间] = \'" & str & "\' and [询盘来源] = \'搜狗竞价\' ") Tables("每日播报表_合计").Rows(3)("第三列") = DataTables("留档表").Compute("count(编号)","[询盘时间] = \'" & str & "\' and [询盘来源] = \'搜狗竞价\' ") Tables("每日播报表_合计").Rows(3)("第四列") = DataTables("上门表").Compute("count(编号)","[上门日期] = \'" & str & "\' and [询盘来源] = \'搜狗竞价\' ") Tables("每日播报表_合计").Rows(3)("第五列") = DataTables("交定表").Compute("count(编号)","[交定日期] = \'" & str & "\' and [询盘来源] = \'搜狗竞价\' ") Tables("每日播报表_合计").Rows(3)("第六列") = DataTables("施工表").Compute("count(编号)","[施工日期] = \'" & str & "\' and [询盘来源] = \'搜狗竞价\' ") Tables("每日播报表_合计").Rows(3)("第七列") = DataTables("株洲消费表").Compute("sum(搜狗竞价_消费)","[日期] = \'" & str & "\'") + DataTables("湘潭消费表").Compute("sum(搜狗竞价_消费)","[日期] = \'" & str & "\'") + DataTables("衡阳消费表").Compute("sum(搜狗竞价_消费)","[日期] = \'" & str & "\'") + DataTables("长沙消费表").Compute("sum(搜狗竞价_消费)","[日期] = \'" & str & "\'") Tables("每日播报表_合计").Rows(3)("第八列") = DataTables("株洲消费表").Compute("sum(搜狗竞价_点击)","[日期] = \'" & str & "\'") + DataTables("湘潭消费表").Compute("sum(搜狗竞价_点击)","[日期] = \'" & str & "\'") + DataTables("衡阳消费表").Compute("sum(搜狗竞价_点击)","[日期] = \'" & str & "\'") + DataTables("长沙消费表").Compute("sum(搜狗竞价_点击)","[日期] = \'" & str & "\'") Tables("每日播报表_合计").Rows(3)("第九列") = DataTables("株洲消费表").Compute("sum(搜狗竞价_展现)","[日期] = \'" & str & "\'") + DataTables("湘潭消费表").Compute("sum(搜狗竞价_展现)","[日期] = \'" & str & "\'") + DataTables("衡阳消费表").Compute("sum(搜狗竞价_展现)","[日期] = \'" & str & "\'") + DataTables("长沙消费表").Compute("sum(搜狗竞价_展现)","[日期] = \'" & str & "\'") Tables("每日播报表_合计").Rows(4)("第二列") = DataTables("询盘表").Compute("count(编号)","[询盘时间] = \'" & str & "\' and [询盘来源] = \'神马竞价\' ") Tables("每日播报表_合计").Rows(4)("第三列") = DataTables("留档表").Compute("count(编号)","[询盘时间] = \'" & str & "\' and [询盘来源] = \'神马竞价\' ") Tables("每日播报表_合计").Rows(4)("第四列") = DataTables("上门表").Compute("count(编号)","[上门日期] = \'" & str & "\' and [询盘来源] = \'神马竞价\' ") Tables("每日播报表_合计").Rows(4)("第五列") = DataTables("交定表").Compute("count(编号)","[交定日期] = \'" & str & "\' and [询盘来源] = \'神马竞价\' ") Tables("每日播报表_合计").Rows(4)("第六列") = DataTables("施工表").Compute("count(编号)","[施工日期] = \'" & str & "\' and [询盘来源] = \'神马竞价\' ") Tables("每日播报表_合计").Rows(4)("第七列") = DataTables("株洲消费表").Compute("sum(神马竞价_消费)","[日期] = \'" & str & "\'") + DataTables("湘潭消费表").Compute("sum(神马竞价_消费)","[日期] = \'" & str & "\'") + DataTables("衡阳消费表").Compute("sum(神马竞价_消费)","[日期] = \'" & str & "\'") + DataTables("长沙消费表").Compute("sum(神马竞价_消费)","[日期] = \'" & str & "\'") Tables("每日播报表_合计").Rows(4)("第八列") = DataTables("株洲消费表").Compute("sum(神马竞价_点击)","[日期] = \'" & str & "\'") + DataTables("湘潭消费表").Compute("sum(神马竞价_点击)","[日期] = \'" & str & "\'") + DataTables("衡阳消费表").Compute("sum(神马竞价_点击)","[日期] = \'" & str & "\'") + DataTables("长沙消费表").Compute("sum(神马竞价_点击)","[日期] = \'" & str & "\'") Tables("每日播报表_合计").Rows(4)("第九列") = DataTables("株洲消费表").Compute("sum(神马竞价_展现)","[日期] = \'" & str & "\'") + DataTables("湘潭消费表").Compute("sum(神马竞价_展现)","[日期] = \'" & str & "\'") + DataTables("衡阳消费表").Compute("sum(神马竞价_展现)","[日期] = \'" & str & "\'") + DataTables("长沙消费表").Compute("sum(神马竞价_展现)","[日期] = \'" & str & "\'") Tables("每日播报表_合计").Rows(5)("第二列") = DataTables("询盘表").Compute("count(编号)","[询盘时间] = \'" & str & "\' and [询盘来源] = \'朋友圈\' ") Tables("每日播报表_合计").Rows(5)("第三列") = DataTables("留档表").Compute("count(编号)","[询盘时间] = \'" & str & "\' and [询盘来源] = \'朋友圈\' ") Tables("每日播报表_合计").Rows(5)("第四列") = DataTables("上门表").Compute("count(编号)","[上门日期] = \'" & str & "\' and [询盘来源] = \'朋友圈\' ") Tables("每日播报表_合计").Rows(5)("第五列") = DataTables("交定表").Compute("count(编号)","[交定日期] = \'" & str & "\' and [询盘来源] = \'朋友圈\' ") Tables("每日播报表_合计").Rows(5)("第六列") = DataTables("施工表").Compute("count(编号)","[施工日期] = \'" & str & "\' and [询盘来源] = \'朋友圈\' ") Tables("每日播报表_合计").Rows(5)("第七列") = DataTables("株洲消费表").Compute("sum(朋友圈_消费)","[日期] = \'" & str & "\'") + DataTables("湘潭消费表").Compute("sum(朋友圈_消费)","[日期] = \'" & str & "\'") + DataTables("衡阳消费表").Compute("sum(朋友圈_消费)","[日期] = \'" & str & "\'") + DataTables("长沙消费表").Compute("sum(朋友圈_消费)","[日期] = \'" & str & "\'") Tables("每日播报表_合计").Rows(5)("第八列") = DataTables("株洲消费表").Compute("sum(朋友圈_点击)","[日期] = \'" & str & "\'") + DataTables("湘潭消费表").Compute("sum(朋友圈_点击)","[日期] = \'" & str & "\'") + DataTables("衡阳消费表").Compute("sum(朋友圈_点击)","[日期] = \'" & str & "\'") + DataTables("长沙消费表").Compute("sum(朋友圈_点击)","[日期] = \'" & str & "\'") Tables("每日播报表_合计").Rows(5)("第九列") = DataTables("株洲消费表").Compute("sum(朋友圈_展现)","[日期] = \'" & str & "\'") + DataTables("湘潭消费表").Compute("sum(朋友圈_展现)","[日期] = \'" & str & "\'") + DataTables("衡阳消费表").Compute("sum(朋友圈_展现)","[日期] = \'" & str & "\'") + DataTables("长沙消费表").Compute("sum(朋友圈_展现)","[日期] = \'" & str & "\'") Tables("每日播报表_合计").Rows(6)("第二列") = DataTables("询盘表").Compute("count(编号)","[询盘时间] = \'" & str & "\' and [询盘来源] = \'小视频\' ") Tables("每日播报表_合计").Rows(6)("第三列") = DataTables("留档表").Compute("count(编号)","[询盘时间] = \'" & str & "\' and [询盘来源] = \'小视频\' ") Tables("每日播报表_合计").Rows(6)("第四列") = DataTables("上门表").Compute("count(编号)","[上门日期] = \'" & str & "\' and [询盘来源] = \'小视频\' ") Tables("每日播报表_合计").Rows(6)("第五列") = DataTables("交定表").Compute("count(编号)","[交定日期] = \'" & str & "\' and [询盘来源] = \'小视频\' ") Tables("每日播报表_合计").Rows(6)("第六列") = DataTables("施工表").Compute("count(编号)","[施工日期] = \'" & str & "\' and [询盘来源] = \'小视频\' ") Tables("每日播报表_合计").Rows(6)("第七列") = DataTables("株洲消费表").Compute("sum(小视频_消费)","[日期] = \'" & str & "\'") + DataTables("湘潭消费表").Compute("sum(小视频_消费)","[日期] = \'" & str & "\'") + DataTables("衡阳消费表").Compute("sum(小视频_消费)","[日期] = \'" & str & "\'") + DataTables("长沙消费表").Compute("sum(小视频_消费)","[日期] = \'" & str & "\'") Tables("每日播报表_合计").Rows(6)("第八列") = DataTables("株洲消费表").Compute("sum(小视频_点击)","[日期] = \'" & str & "\'") + DataTables("湘潭消费表").Compute("sum(小视频_点击)","[日期] = \'" & str & "\'") + DataTables("衡阳消费表").Compute("sum(小视频_点击)","[日期] = \'" & str & "\'") + DataTables("长沙消费表").Compute("sum(小视频_点击)","[日期] = \'" & str & "\'") Tables("每日播报表_合计").Rows(6)("第九列") = DataTables("株洲消费表").Compute("sum(小视频_展现)","[日期] = \'" & str & "\'") + DataTables("湘潭消费表").Compute("sum(小视频_展现)","[日期] = \'" & str & "\'") + DataTables("衡阳消费表").Compute("sum(小视频_展现)","[日期] = \'" & str & "\'") + DataTables("长沙消费表").Compute("sum(小视频_展现)","[日期] = \'" & str & "\'") Tables("每日播报表_合计").Rows(7)("第二列") = DataTables("询盘表").Compute("count(编号)","[询盘时间] = \'" & str & "\' and [询盘来源] = \'360信息流\' ") Tables("每日播报表_合计").Rows(7)("第三列") = DataTables("留档表").Compute("count(编号)","[询盘时间] = \'" & str & "\' and [询盘来源] = \'360信息流\' ") Tables("每日播报表_合计").Rows(7)("第四列") = DataTables("上门表").Compute("count(编号)","[上门日期] = \'" & str & "\' and [询盘来源] = \'360信息流\' ") Tables("每日播报表_合计").Rows(7)("第五列") = DataTables("交定表").Compute("count(编号)","[交定日期] = \'" & str & "\' and [询盘来源] = \'360信息流\' ") Tables("每日播报表_合计").Rows(7)("第六列") = DataTables("施工表").Compute("count(编号)","[施工日期] = \'" & str & "\' and [询盘来源] = \'360信息流\' ") Tables("每日播报表_合计").Rows(7)("第七列") = DataTables("株洲消费表").Compute("sum(点睛信息流_消费)","[日期] = \'" & str & "\'") + DataTables("湘潭消费表").Compute("sum(点睛信息流_消费)","[日期] = \'" & str & "\'") + DataTables("衡阳消费表").Compute("sum(点睛信息流_消费)","[日期] = \'" & str & "\'") + DataTables("长沙消费表").Compute("sum(点睛信息流_消费)","[日期] = \'" & str & "\'") Tables("每日播报表_合计").Rows(7)("第八列") = DataTables("株洲消费表").Compute("sum(点睛信息流_点击)","[日期] = \'" & str & "\'") + DataTables("湘潭消费表").Compute("sum(点睛信息流_点击)","[日期] = \'" & str & "\'") + DataTables("衡阳消费表").Compute("sum(点睛信息流_点击)","[日期] = \'" & str & "\'") + DataTables("长沙消费表").Compute("sum(点睛信息流_点击)","[日期] = \'" & str & "\'") Tables("每日播报表_合计").Rows(7)("第九列") = DataTables("株洲消费表").Compute("sum(点睛信息流_展现)","[日期] = \'" & str & "\'") + DataTables("湘潭消费表").Compute("sum(点睛信息流_展现)","[日期] = \'" & str & "\'") + DataTables("衡阳消费表").Compute("sum(点睛信息流_展现)","[日期] = \'" & str & "\'") + DataTables("长沙消费表").Compute("sum(点睛信息流_展现)","[日期] = \'" & str & "\'") Tables("每日播报表_合计").Rows(8)("第二列") = DataTables("询盘表").Compute("count(编号)","[询盘时间] = \'" & str & "\' and [询盘来源] = \'广点通\' ") Tables("每日播报表_合计").Rows(8)("第三列") = DataTables("留档表").Compute("count(编号)","[询盘时间] = \'" & str & "\' and [询盘来源] = \'广点通\' ") Tables("每日播报表_合计").Rows(8)("第四列") = DataTables("上门表").Compute("count(编号)","[上门日期] = \'" & str & "\' and [询盘来源] = \'广点通\' ") Tables("每日播报表_合计").Rows(8)("第五列") = DataTables("交定表").Compute("count(编号)","[交定日期] = \'" & str & "\' and [询盘来源] = \'广点通\' ") Tables("每日播报表_合计").Rows(8)("第六列") = DataTables("施工表").Compute("count(编号)","[施工日期] = \'" & str & "\' and [询盘来源] = \'广点通\' ") Tables("每日播报表_合计").Rows(8)("第七列") = DataTables("株洲消费表").Compute("sum(广点通_消费)","[日期] = \'" & str & "\'") + DataTables("湘潭消费表").Compute("sum(广点通_消费)","[日期] = \'" & str & "\'") + DataTables("衡阳消费表").Compute("sum(广点通_消费)","[日期] = \'" & str & "\'") + DataTables("长沙消费表").Compute("sum(广点通_消费)","[日期] = \'" & str & "\'") Tables("每日播报表_合计").Rows(8)("第八列") = DataTables("株洲消费表").Compute("sum(广点通_点击)","[日期] = \'" & str & "\'") + DataTables("湘潭消费表").Compute("sum(广点通_点击)","[日期] = \'" & str & "\'") + DataTables("衡阳消费表").Compute("sum(广点通_点击)","[日期] = \'" & str & "\'") + DataTables("长沙消费表").Compute("sum(广点通_点击)","[日期] = \'" & str & "\'") Tables("每日播报表_合计").Rows(8)("第九列") = DataTables("株洲消费表").Compute("sum(广点通_展现)","[日期] = \'" & str & "\'") + DataTables("湘潭消费表").Compute("sum(广点通_展现)","[日期] = \'" & str & "\'") + DataTables("衡阳消费表").Compute("sum(广点通_展现)","[日期] = \'" & str & "\'") + DataTables("长沙消费表").Compute("sum(广点通_展现)","[日期] = \'" & str & "\'") Tables("每日播报表_合计").Rows(9)("第二列") = DataTables("询盘表").Compute("count(编号)","[询盘时间] = \'" & str & "\' and [询盘来源] = \'众盟\' ") Tables("每日播报表_合计").Rows(9)("第三列") = DataTables("留档表").Compute("count(编号)","[询盘时间] = \'" & str & "\' and [询盘来源] = \'众盟\' ") Tables("每日播报表_合计").Rows(9)("第四列") = DataTables("上门表").Compute("count(编号)","[上门日期] = \'" & str & "\' and [询盘来源] = \'众盟\' ") Tables("每日播报表_合计").Rows(9)("第五列") = DataTables("交定表").Compute("count(编号)","[交定日期] = \'" & str & "\' and [询盘来源] = \'众盟\' ") Tables("每日播报表_合计").Rows(9)("第六列") = DataTables("施工表").Compute("count(编号)","[施工日期] = \'" & str & "\' and [询盘来源] = \'众盟\' ") Tables("每日播报表_合计").Rows(9)("第七列") = DataTables("株洲消费表").Compute("sum(众盟_消费)","[日期] = \'" & str & "\'") + DataTables("湘潭消费表").Compute("sum(众盟_消费)","[日期] = \'" & str & "\'") + DataTables("衡阳消费表").Compute("sum(众盟_消费)","[日期] = \'" & str & "\'") + DataTables("长沙消费表").Compute("sum(众盟_消费)","[日期] = \'" & str & "\'") Tables("每日播报表_合计").Rows(9)("第八列") = DataTables("株洲消费表").Compute("sum(众盟_点击)","[日期] = \'" & str & "\'") + DataTables("湘潭消费表").Compute("sum(众盟_点击)","[日期] = \'" & str & "\'") + DataTables("衡阳消费表").Compute("sum(众盟_点击)","[日期] = \'" & str & "\'") + DataTables("长沙消费表").Compute("sum(众盟_点击)","[日期] = \'" & str & "\'") Tables("每日播报表_合计").Rows(9)("第九列") = DataTables("株洲消费表").Compute("sum(众盟_展现)","[日期] = \'" & str & "\'") + DataTables("湘潭消费表").Compute("sum(众盟_展现)","[日期] = \'" & str & "\'") + DataTables("衡阳消费表").Compute("sum(众盟_展现)","[日期] = \'" & str & "\'") + DataTables("长沙消费表").Compute("sum(众盟_展现)","[日期] = \'" & str & "\'") Tables("每日播报表_合计").Rows(10)("第二列") = DataTables("询盘表").Compute("count(编号)","[询盘时间] = \'" & str & "\' and [询盘来源] = \'公众微信\' ") Tables("每日播报表_合计").Rows(10)("第三列") = DataTables("留档表").Compute("count(编号)","[询盘时间] = \'" & str & "\' and [询盘来源] = \'公众微信\' ") Tables("每日播报表_合计").Rows(10)("第四列") = DataTables("上门表").Compute("count(编号)","[上门日期] = \'" & str & "\' and [询盘来源] = \'公众微信\' ") Tables("每日播报表_合计").Rows(10)("第五列") = DataTables("交定表").Compute("count(编号)","[交定日期] = \'" & str & "\' and [询盘来源] = \'公众微信\' ") Tables("每日播报表_合计").Rows(10)("第六列") = DataTables("施工表").Compute("count(编号)","[施工日期] = \'" & str & "\' and [询盘来源] = \'公众微信\' ") Tables("每日播报表_合计").Rows(11)("第二列") = DataTables("询盘表").Compute("count(编号)","[询盘时间] = \'" & str & "\' and [询盘来源] = \'淘宝\' ") Tables("每日播报表_合计").Rows(11)("第三列") = DataTables("留档表").Compute("count(编号)","[询盘时间] = \'" & str & "\' and [询盘来源] = \'淘宝\' ") Tables("每日播报表_合计").Rows(11)("第四列") = DataTables("上门表").Compute("count(编号)","[上门日期] = \'" & str & "\' and [询盘来源] = \'淘宝\' ") Tables("每日播报表_合计").Rows(11)("第五列") = DataTables("交定表").Compute("count(编号)","[交定日期] = \'" & str & "\' and [询盘来源] = \'淘宝\' ") Tables("每日播报表_合计").Rows(11)("第六列") = DataTables("施工表").Compute("count(编号)","[施工日期] = \'" & str & "\' and [询盘来源] = \'淘宝\' ") Tables("每日播报表_合计").Rows(11)("第七列") = DataTables("株洲消费表").Compute("sum(淘宝_消费)","[日期] = \'" & str & "\'") + DataTables("湘潭消费表").Compute("sum(淘宝_消费)","[日期] = \'" & str & "\'") + DataTables("衡阳消费表").Compute("sum(淘宝_消费)","[日期] = \'" & str & "\'") + DataTables("长沙消费表").Compute("sum(淘宝_消费)","[日期] = \'" & str & "\'") Tables("每日播报表_合计").Rows(11)("第八列") = DataTables("株洲消费表").Compute("sum(淘宝_点击)","[日期] = \'" & str & "\'") + DataTables("湘潭消费表").Compute("sum(淘宝_点击)","[日期] = \'" & str & "\'") + DataTables("衡阳消费表").Compute("sum(淘宝_点击)","[日期] = \'" & str & "\'") + DataTables("长沙消费表").Compute("sum(淘宝_点击)","[日期] = \'" & str & "\'") Tables("每日播报表_合计").Rows(11)("第九列") = DataTables("株洲消费表").Compute("sum(淘宝_展现)","[日期] = \'" & str & "\'") + DataTables("湘潭消费表").Compute("sum(淘宝_展现)","[日期] = \'" & str & "\'") + DataTables("衡阳消费表").Compute("sum(淘宝_展现)","[日期] = \'" & str & "\'") + DataTables("长沙消费表").Compute("sum(淘宝_展现)","[日期] = \'" & str & "\'") Tables("每日播报表_合计").Rows(12)("第二列") = DataTables("询盘表").Compute("count(编号)","[询盘时间] = \'" & str & "\' and [询盘来源] = \'株洲在线\' ") Tables("每日播报表_合计").Rows(12)("第三列") = DataTables("留档表").Compute("count(编号)","[询盘时间] = \'" & str & "\' and [询盘来源] = \'株洲在线\' ") Tables("每日播报表_合计").Rows(12)("第四列") = DataTables("上门表").Compute("count(编号)","[上门日期] = \'" & str & "\' and [询盘来源] = \'株洲在线\' ") Tables("每日播报表_合计").Rows(12)("第五列") = DataTables("交定表").Compute("count(编号)","[交定日期] = \'" & str & "\' and [询盘来源] = \'株洲在线\' ") Tables("每日播报表_合计").Rows(12)("第六列") = DataTables("施工表").Compute("count(编号)","[施工日期] = \'" & str & "\' and [询盘来源] = \'株洲在线\' ") Tables("每日播报表_合计").Rows(13)("第二列") = DataTables("询盘表").Compute("count(编号)","[询盘时间] = \'" & str & "\' and [询盘来源] = \'保驾护航\' ") Tables("每日播报表_合计").Rows(13)("第三列") = DataTables("留档表").Compute("count(编号)","[询盘时间] = \'" & str & "\' and [询盘来源] = \'保驾护航\' ") Tables("每日播报表_合计").Rows(13)("第四列") = DataTables("上门表").Compute("count(编号)","[上门日期] = \'" & str & "\' and [询盘来源] = \'保驾护航\' ") Tables("每日播报表_合计").Rows(13)("第五列") = DataTables("交定表").Compute("count(编号)","[交定日期] = \'" & str & "\' and [询盘来源] = \'保驾护航\' ") Tables("每日播报表_合计").Rows(13)("第六列") = DataTables("施工表").Compute("count(编号)","[施工日期] = \'" & str & "\' and [询盘来源] = \'保驾护航\' ") Tables("每日播报表_合计").Rows(14)("第二列") = DataTables("询盘表").Compute("count(编号)","[询盘时间] = \'" & str & "\' and [询盘来源] = \'信用家\' ") Tables("每日播报表_合计").Rows(14)("第三列") = DataTables("留档表").Compute("count(编号)","[询盘时间] = \'" & str & "\' and [询盘来源] = \'信用家\' ") Tables("每日播报表_合计").Rows(14)("第四列") = DataTables("上门表").Compute("count(编号)","[上门日期] = \'" & str & "\' and [询盘来源] = \'信用家\' ") Tables("每日播报表_合计").Rows(14)("第五列") = DataTables("交定表").Compute("count(编号)","[交定日期] = \'" & str & "\' and [询盘来源] = \'信用家\' ") Tables("每日播报表_合计").Rows(14)("第六列") = DataTables("施工表").Compute("count(编号)","[施工日期] = \'" & str & "\' and [询盘来源] = \'信用家\' ") Tables("每日播报表_合计").Rows(15)("第二列") = DataTables("询盘表").Compute("count(编号)","[询盘时间] = \'" & str & "\' and [询盘来源] = \'自然搜索\' ") Tables("每日播报表_合计").Rows(15)("第三列") = DataTables("留档表").Compute("count(编号)","[询盘时间] = \'" & str & "\' and [询盘来源] = \'自然搜索\' ") Tables("每日播报表_合计").Rows(15)("第四列") = DataTables("上门表").Compute("count(编号)","[上门日期] = \'" & str & "\' and [询盘来源] = \'自然搜索\' ") Tables("每日播报表_合计").Rows(15)("第五列") = DataTables("交定表").Compute("count(编号)","[交定日期] = \'" & str & "\' and [询盘来源] = \'自然搜索\' ") Tables("每日播报表_合计").Rows(15)("第六列") = DataTables("施工表").Compute("count(编号)","[施工日期] = \'" & str & "\' and [询盘来源] = \'自然搜索\' ") Tables("每日播报表_合计").Rows(16)("第二列") = DataTables("询盘表").Compute("count(编号)","[询盘时间] = \'" & str & "\' and [询盘来源] = \'置换\' ") Tables("每日播报表_合计").Rows(16)("第三列") = DataTables("留档表").Compute("count(编号)","[询盘时间] = \'" & str & "\' and [询盘来源] = \'置换\' ") Tables("每日播报表_合计").Rows(16)("第四列") = DataTables("上门表").Compute("count(编号)","[上门日期] = \'" & str & "\' and [询盘来源] = \'置换\' ") Tables("每日播报表_合计").Rows(16)("第五列") = DataTables("交定表").Compute("count(编号)","[交定日期] = \'" & str & "\' and [询盘来源] = \'置换\' ") Tables("每日播报表_合计").Rows(16)("第六列") = DataTables("施工表").Compute("count(编号)","[施工日期] = \'" & str & "\' and [询盘来源] = \'置换\' ") Tables("每日播报表_合计").Rows(17)("第二列") = DataTables("询盘表").Compute("count(编号)","[询盘时间] = \'" & str & "\' and [询盘来源] = \'其它\' ") Tables("每日播报表_合计").Rows(17)("第三列") = DataTables("留档表").Compute("count(编号)","[询盘时间] = \'" & str & "\' and [询盘来源] = \'其它\' ") Tables("每日播报表_合计").Rows(17)("第四列") = DataTables("上门表").Compute("count(编号)","[上门日期] = \'" & str & "\' and [询盘来源] = \'其它\' ") Tables("每日播报表_合计").Rows(17)("第五列") = DataTables("交定表").Compute("count(编号)","[交定日期] = \'" & str & "\' and [询盘来源] = \'其它\' ") Tables("每日播报表_合计").Rows(17)("第六列") = DataTables("施工表").Compute("count(编号)","[施工日期] = \'" & str & "\' and [询盘来源] = \'其它\' ") Tables("每日播报表_合计").Rows(18)("第二列") = DataTables("询盘表").Compute("count(编号)","[询盘时间] = \'" & str & "\'") Tables("每日播报表_合计").Rows(18)("第三列") = DataTables("留档表").Compute("count(编号)","[询盘时间] = \'" & str & "\'") Tables("每日播报表_合计").Rows(18)("第四列") = DataTables("上门表").Compute("count(编号)","[上门日期] = \'" & str & "\'") Tables("每日播报表_合计").Rows(18)("第五列") = DataTables("交定表").Compute("count(编号)","[交定日期] = \'" & str & "\'") Tables("每日播报表_合计").Rows(18)("第六列") = DataTables("施工表").Compute("count(编号)","[施工日期] = \'" & str & "\'") Tables("每日播报表_合计").Rows(18)("第七列") = DataTables("各地区消费总表").Compute("sum(合计_消费)","[日期] = \'" & str & "\'") Tables("每日播报表_合计").Rows(18)("第八列") = DataTables("各地区消费总表").Compute("sum(合计_点击)","[日期] = \'" & str & "\'") Tables("每日播报表_合计").Rows(18)("第九列") = DataTables("各地区消费总表").Compute("sum(合计_展现)","[日期] = \'" & str & "\'") Tables("每日播报表_合计").Rows(18)("第十列") = DataTables("各地区消费总表").Compute("sum(合计_均点价)","[日期] = \'" & str & "\'") Tables("每日播报表_合计").Rows(18)("点击率") = DataTables("各地区消费总表").Compute("sum(合计_点击率)","[日期] = \'" & str & "\'") 还有一个加载窗口后执行的事件: Dim dqz As String() = {"株洲","湘潭","衡阳","长沙","合计"} For Each dq As String In dqz Dim ss() As String = {"平台","询盘","有效","上门","交定","施工","消费","点击","展现","均点价","点击率"} For i As Integer = 0 To Tables("每日播报表_" & dq & "").Cols.Count - 1 Tables("每日播报表_" & dq & "").Cols(i).Caption = ss(i) Next DataTables("每日播报表_" & dq & "").DataCols.Add("点击率", Gettype(Double)) DataTables("每日播报表_" & dq & "").DataCols("点击率").SetFormat("0.00%") Tables("每日播报表_" & dq & "").Rows.AddNew(9) Dim dr As DataRow Dim st() As String = {"百度竞价","百度信息流","360竞价","搜狗竞价","神马竞价","朋友圈","小视频", "360信息流", "广点通", "众盟", "公众微信","淘宝","株洲在线","保驾护航","信用家","自然搜索","置换","其它","合计"} For i1 As Integer = 0 To st.Length -1 dr = DataTables("每日播报表_" & dq & "").DataRows(i1) dr("第一列") = st(i1) Next DataTables("每日播报表_" & dq & "").Save For Each z As Col In Tables("每日播报表_" & dq & "").Cols Tables("每日播报表_" & dq & "").AutoSizeCol(z.Name) Tables("每日播报表_" & dq & "").Cols("第七列").Width = 60 Tables("每日播报表_" & dq & "").Cols("第九列").Width = 60 Next Dim iq As Byte = 0 Do While iq <= Tables("每日播报表_" & dq & "").Cols.Count - 1 Tables("每日播报表_" & dq & "").Cols(iq).TextAlign = TextAlignEnum.Center iq = iq + 1 Loop Tables("每日播报表_" & dq & "").DefaultRowHeight = 30 Next Dim rq As WinForm.DateTimePicker = e.Form.Controls("日期") rq.Value = Date.Today.AddDays(-1) \'默认显示昨天日期 [此贴子已经被作者于2018/11/25 9:37:02编辑过]
|
-- 作者:有点甜 -- 发布时间:2018/11/25 17:09:00 -- 1、你可以把remove的代码,写到最后去,不要写在最前面;
2、你也可以把remove改成filter,筛选掉不符合的内容,而不是移除。 |
-- 作者:kljbdjz -- 发布时间:2018/11/27 16:37:00 -- 感谢大神,用筛选的方法解决了! |