主题：遍历统计工具，组合统计

另外，后面的 "CheckBox10"， "CheckBox11" ,都是统计 库位销售分析  同一张表，能不能不组合统计，效率会高一点。

 

现在是这样写，三次 统计了 库位销售分析，效率低下。一直没搞成功。。。怎么才能治统计一次。。。

Dim ary1() As String = {"CheckBox8", "CheckBox9", "CheckBox10","CheckBox11","CheckBox12"}
Dim ary2() As String = {"陈列量", "动销量", "库位销售分析","库位销售分析","库位销售分析" }  '表名
Dim ary3() As String = {"陈列量", "动销量", "销售数量","销售金额", "销售金额|吊牌金额"}   '列名
Dim ary4() As String = {"陈列sku数", "动销sku数","销售数量","销售金额", "销售金额|吊牌金额"} '列标题名
Dim ary5() As String = {"统计表1", "统计表2", "统计表3","统计表4","统计表5"}   '统计表

真是没有做不到，只有想不到。狐表厉害，红袍老师牛！！得好好消化下！！

 

哈哈，还有一个问题：

If Tables(e.Form.Name & "_table1").Cols.Contains("吊牌金额_1")  Then
Dim c As Col = Tables(e.Form.Name & "_table1").Cols("吊牌金额_1")
Dim s1 As String = c.Caption.SubString(0,27)  '这个是为了得到 表头，使得新增的列的标题的列头和其他的一样。
DataTables(e.Form.Name & "_table1").DataCols.Add("销售折扣",Gettype(Double), "销售金额_1 / 吊牌金额_1",s1 & "销售折扣")  

end if

 

就是如果表中有 吊牌金额 这一列，就要增加列：销售折扣。

问题是：现在是写死的，吊牌金额_1,但是吊牌金额可能是_1,_2,_3.

 

因为：统计代码  bdn.vGroups.AddDef("调整期间","调整期间_{0}")

 

那增加列 的 代码要怎么写呢？

 

我尝试这样写:

 

for each c2 as col in Tables(e.Form.Name & "_table1").cols

if c2.name.startwith("吊牌金额") = true then  ' 我是想获取是 吊牌金额 的列 的集合，再去遍历取值增加列，但是这个不行，只是判断

。。。

 

谢谢 Hyphen 老师。

奇怪，换了台电脑，大红袍老师 18 楼的代码就出现不能多选"CheckBox8", "CheckBox9", "CheckBox10|CheckBox11"

多选统计就会出错，说找不到 XX列。

用别的电脑没问题。

不知道是这台电脑的什么设置使得不兼容。。。

 

 

这个倒是不会，数据库链接是内置好的。应该是电脑设置的问题。 因为这台其他的表在统计日期的时候，也出错。发现是因为这台电脑的时期格式是：年月日时分秒 星期几。 也是改了才正常！ 现在就是不知道什么设置影响了代码。。。

还是没找到原因，哎～

谢谢各位老师！已经解决！！