Foxtable(狐表) → 用户栏目 → 专家坐堂 → 代码太繁琐。。求简洁的代码


  共有2594人关注过本帖树形打印复制链接

主题：代码太繁琐。。求简洁的代码
帅哥哟，离线，有人找我吗？
fubblyc
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2355 积分：16187 威望：0 精华：0 注册：2013/9/1 8:09:00 		代码太繁琐。。求简洁的代码  发帖心情 Post By：2016/7/22 17:26:00 [只看该作者]

如下图，组合统计，

If e.Form.Controls("CheckBox1").checked And e.Form.Controls("CheckBox2").checked  And e.Form.Controls("CheckBox3").checked  And e.Form.Controls("CheckBox4").checked And e.Form.Controls("CheckBox5").checked Then 
    Dim nms As String() = {"门店","库位","销售年度","销售季节","大类","品类","货号"} '指定连接列

    dt1.Combine(nms,dt4,nms) '将销售统计数据组合到进货统计数据
    dt1.Combine(nms,dt2,nms) '将销售统计数据组合到进货统计数据
    dt1.Combine(nms,dt3,nms) '将销售统计数据组合到进货统计数据
    Tables(e.Form.Name & "_table1").DataSource = dt1

关联列是根据用户选的来定的。那现在得一一将这些情况给列出来，如下代码，好繁琐啊。有没有用变量的方式来代替呢。。。


此主题相关图片如下：10.png
按此在新窗口浏览图片
   

 

 Dim bd4 As New SQLcrossTableBuilder("统计表4","库位销售分析")
    Dim dt4 As fxDataSource
    bd4.C
    bd4.HGroups.AddDef("门店") '添加客户列用于水平分组
    bd4.HGroups.AddDef("库位") '添加客户列用于水平分组
    bd4.HGroups.AddDef("销售日期",DateGroupEnum.year,"区间") '添加客户列用于水平分组
    bd4.vGroups.AddDef("调整期间","调整期间_{0}_销售金额") '添加客户列用于水平分组
    If e.Form.Controls("CheckBox1").checked  Then
        bd4.HGroups.AddDef("销售年度") '添加客户列用于水平分组
    End If
    If e.Form.Controls("CheckBox2").checked  Then
        bd4.HGroups.AddDef("销售季节") '添加客户列用于水平分组
    End If
   
    If e.Form.Controls("CheckBox3").checked  Then
        bd4.HGroups.AddDef("大类") '添加客户列用于水平分组
    End If
    If e.Form.Controls("CheckBox4").checked  Then
        bd4.HGroups.AddDef("品类") '添加客户列用于水平分组
    End If
    If e.Form.Controls("CheckBox5").checked  Then
        bd4.HGroups.AddDef("货号") '添加客户列用于水平分组
    End If
    bd4.Totals.AddDef("销售金额") '添加数量列用于统计
    If e.Form.Controls("CheckBox7").checked  Then
        bd4.VGroups.AddDef("陈列方式") '添加日期列用于垂直分组,按月分组
    End If
    bd4.filter = filter
    bd4.CommandTimeOut = 600
    dt4 = bd4.BuildDataSource()
If e.Form.Controls("CheckBox1").checked And e.Form.Controls("CheckBox2").checked  And e.Form.Controls("CheckBox3").checked  And e.Form.Controls("CheckBox4").checked And e.Form.Controls("CheckBox5").checked Then 
    Dim nms As String() = {"门店","库位","销售年度","销售季节","大类","品类","货号"} '指定连接列
    dt1.Combine(nms,dt4,nms) '将销售统计数据组合到进货统计数据
    dt1.Combine(nms,dt2,nms) '将销售统计数据组合到进货统计数据
    dt1.Combine(nms,dt3,nms) '将销售统计数据组合到进货统计数据
    Tables(e.Form.Name & "_table1").DataSource = dt1
ElseIf e.Form.Controls("CheckBox1").checked And e.Form.Controls("CheckBox2").checked  And e.Form.Controls("CheckBox3").checked  And e.Form.Controls("CheckBox4").checked Then
    Dim nms As String() = {"门店","库位","销售年度","销售季节","大类","品类"} '指定连接列
    dt1.Combine(nms,dt4,nms) '将销售统计数据组合到进货统计数据
    dt1.Combine(nms,dt2,nms) '将销售统计数据组合到进货统计数据
    dt1.Combine(nms,dt3,nms) '将销售统计数据组合到进货统计数据
    Tables(e.Form.Name & "_table1").DataSource = dt1
ElseIf e.Form.Controls("CheckBox1").checked And e.Form.Controls("CheckBox2").checked  And e.Form.Controls("CheckBox3").checked  Then
    Dim nms As String() = {"门店","库位","销售年度","销售季节","大类"} '指定连接列
    dt1.Combine(nms,dt4,nms) '将销售统计数据组合到进货统计数据
    dt1.Combine(nms,dt2,nms) '将销售统计数据组合到进货统计数据
    dt1.Combine(nms,dt3,nms) '将销售统计数据组合到进货统计数据
    Tables(e.Form.Name & "_table1").DataSource = dt1
ElseIf e.Form.Controls("CheckBox1").checked And e.Form.Controls("CheckBox2").checked  Then
    Dim nms As String() = {"门店","库位","销售年度","销售季节"} '指定连接列
    dt1.Combine(nms,dt4,nms) '将销售统计数据组合到进货统计数据
    dt1.Combine(nms,dt2,nms) '将销售统计数据组合到进货统计数据
    dt1.Combine(nms,dt3,nms) '将销售统计数据组合到进货统计数据
    Tables(e.Form.Name & "_table1").DataSource = dt1
ElseIf e.Form.Controls("CheckBox1").checked   Then
    Dim nms As String() = {"门店","库位","销售年度"} '指定连接列
    dt1.Combine(nms,dt4,nms) '将销售统计数据组合到进货统计数据
    dt1.Combine(nms,dt2,nms) '将销售统计数据组合到进货统计数据
    dt1.Combine(nms,dt3,nms) '将销售统计数据组合到进货统计数据
    Tables(e.Form.Name & "_table1").DataSource = dt1
Else
    Dim nms As String() = {"门店","库位"} '指定连接列
    dt1.Combine(nms,dt4,nms) '将销售统计数据组合到进货统计数据
    dt1.Combine(nms,dt2,nms) '将销售统计数据组合到进货统计数据
    dt1.Combine(nms,dt3,nms) '将销售统计数据组合到进货统计数据
    Tables(e.Form.Name & "_table1").DataSource = dt1
End If

[此贴子已经被作者于2016/7/22 17:26:46编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/7/22 21:17:00 [只看该作者]

循环就行了

 

Dim ls As new List(of String)
For Each c As object In e.form.controls("panel1").children
    If c.checked Then
        ls.add(c.text)
    End If
Next
Dim nms As String() = ls.ToArray
 回到顶部
帅哥哟，离线，有人找我吗？
fubblyc
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2355 积分：16187 威望：0 精华：0 注册：2013/9/1 8:09:00 		  发帖心情 Post By：2016/7/26 10:47:00 [只看该作者]

太好了，简洁。谢谢！！

 

对了，大红袍老师，根据多选复选框 的选择情况，来进行不同表的组合统计。


图片点击可在新窗口打开查看此主题相关图片如下：微信截图_20160726103717.png
图片点击可在新窗口打开查看

 

我现在是自己去组合，也是很繁琐：

If e.Form.Controls("CheckBox10").checked   And e.Form.Controls("CheckBox8").checked and  And e.Form.Controls("CheckBox9").checked Then

。。。

 

elseIf e.Form.Controls("CheckBox10").checked  And e.Form.Controls("CheckBox9").checked  Then

    Dim bd3 As New SQLcrossTableBuilder("统计表3","陈列量")
    Dim dt3 As fxDataSource
    bd3.C
    bd3.HGroups.AddDef("门店") '添加客户列用于水平分组
    bd3.HGroups.AddDef("库位") '添加客户列用于水平分组   
    bd3.vGroups.AddDef("调整期间","调整期间_{0}_陈列sku数") '添加客户列用于水平分组
    bd2.Totals.AddDef("动销量") '添加数量列用于统计
    bd2.filter = filter
    bd2.CommandTimeOut = 600
    dt2 = bd2.BuildDataSource()

 

    Dim bd1 As New SQLcrossTableBuilder("统计表1","库位销售分析")
    Dim dt1 As fxDataSource
    bd1.C
    bd1.HGroups.AddDef("门店") '添加客户列用于水平分组
    bd1.HGroups.AddDef("库位") '添加客户列用于水平分组
    bd1.HGroups.AddDef("销售日期",DateGroupEnum.year,"区间") '添加客户列用于水平分组
      bd1.Totals.AddDef("销售数量","销售件数") '添加数量列用于统计
    If e.Form.Controls("CheckBox6").checked  Then
        bd1.Totals.AddDef("销售金额") '添加数量列用于统计
    End If
    bd1.filter = filter
    bd1.CommandTimeOut = 600
    dt1 = bd1.BuildDataSource()
      
    Dim nms As String() = {"门店","库位"} '指定连接列
    dt3.Combine(nms,dt2,nms) '将销售统计数据组合到进货统计数据
    dt3.Combine(nms,dt1,nms) '将销售统计数据组合到进货统计数据
    Tables(e.Form.Name & "_table1").DataSource = dt3

ElseIf e.Form.Controls("CheckBox10").checked   And e.Form.Controls("CheckBox8").checked   Then

    Dim bd2 As New SQLcrossTableBuilder("统计表2","动销量")
    Dim dt2 As fxDataSource
    bd2.C
    bd2.HGroups.AddDef("门店") '添加客户列用于水平分组
    bd2.HGroups.AddDef("库位") '添加客户列用于水平分组
    bd2.vGroups.AddDef("调整期间","调整期间_{0}_动销量") '添加客户列用于水平分组
    If e.Form.Controls("CheckBox7").checked  Then
        bd2.VGroups.AddDef("陈列方式") '添加日期列用于垂直分组,按月分组
    End If
    bd2.Totals.AddDef("动销量") '添加数量列用于统计
    bd2.filter = filter
    bd2.CommandTimeOut = 600
    dt2 = bd2.BuildDataSource()

 

    Dim bd1 As New SQLcrossTableBuilder("统计表1","库位销售分析")
    Dim dt1 As fxDataSource
    bd1.C
    bd1.HGroups.AddDef("门店") '添加客户列用于水平分组
    bd1.HGroups.AddDef("库位") '添加客户列用于水平分组
    bd1.HGroups.AddDef("销售日期",DateGroupEnum.year,"区间") '添加客户列用于水平分组
    bd1.Totals.AddDef("销售数量","销售量") '添加数量列用于统计
    If e.Form.Controls("CheckBox6").checked  Then
        bd1.Totals.AddDef("销售金额","销售额") '添加数量列用于统计
    End If
    bd1.filter = filter
    bd1.CommandTimeOut = 600
    dt1 = bd1.BuildDataSource()

    Dim nms As String() = {"门店","库位"} '指定连接列
    dt1.Combine(nms,dt2,nms) '将销售统计数据组合到进货统计数据
    Tables(e.Form.Name & "_table1").DataSource = dt1   

 


ElseIf e.Form.Controls("CheckBox10").checked  And e.Form.Controls("CheckBox9").checked  Then

.....

 

ElseIf e.Form.Controls("CheckBox10").checked   Then

....

 

ElseIf e.Form.Controls("CheckBox9").checked   Then

....

 

ElseIf e.Form.Controls("CheckBox8").checked   Then

....

 

 

不知道有没有更简洁的办法。。。
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/7/26 10:53:00 [只看该作者]

 

[此贴子已经被作者于2016/7/26 10:54:36编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
fubblyc
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2355 积分：16187 威望：0 精华：0 注册：2013/9/1 8:09:00 		  发帖心情 Post By：2016/7/26 10:55:00 [只看该作者]

不同的表。那应该就是还是要一个一个去统计是吧。。。
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/7/26 11:06:00 [只看该作者]

 做个三个判断就行了

 

If e.Form.Controls("CheckBox10").checked   Then

 

End If

 

If e.Form.Controls("CheckBox9").checked   Then

 

End If

 

If e.Form.Controls("CheckBox8").checked   Then

 

End If

 

然后，把dt1、dt2、dt3这些合并起来即可。
 回到顶部
帅哥哟，离线，有人找我吗？
fubblyc
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2355 积分：16187 威望：0 精华：0 注册：2013/9/1 8:09:00 		  发帖心情 Post By：2016/7/26 11:21:00 [只看该作者]

哦哦。哈哈。这个好。就不用重复去写统计代码了。

 回到顶部
帅哥哟，离线，有人找我吗？
fubblyc
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2355 积分：16187 威望：0 精华：0 注册：2013/9/1 8:09:00 		  发帖心情 Post By：2016/7/26 12:04:00 [只看该作者]

红袍老师，组合dt1、dt2、dt3 还是要这样判断对吧，还是说有别的简洁的方法：

    Dim nms As String() = {"门店","库位"} '指定连接列
If e.Form.Controls("CheckBox8").checked  And e.Form.Controls("CheckBox9").checked And e.Form.Controls("CheckBox10").checked   Then
    dt3.Combine(nms,dt2,nms) '将销售统计数据组合到进货统计数据
    dt3.Combine(nms,dt1,nms) '将销售统计数据组合到进货统计数据
    Tables(e.Form.Name & "_table1").DataSource = dt3
ElseIf e.Form.Controls("CheckBox8").checked  And e.Form.Controls("CheckBox9").checked Then
    dt3.Combine(nms,dt2,nms) '将销售统计数据组合到进货统计数据
    Tables(e.Form.Name & "_table1").DataSource = dt3
ElseIf e.Form.Controls("CheckBox8").checked  And e.Form.Controls("CheckBox10").checked Then
    dt3.Combine(nms,dt1,nms) '将销售统计数据组合到进货统计数据
    Tables(e.Form.Name & "_table1").DataSource = dt3
ElseIf e.Form.Controls("CheckBox9").checked  And e.Form.Controls("CheckBox10").checked Then
    dt2.Combine(nms,dt1,nms) '将销售统计数据组合到进货统计数据
    Tables(e.Form.Name & "_table1").DataSource = dt2
End If
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/7/26 12:48:00 [只看该作者]

写错通用，要这样写

 

Dim dt1 As fxDataSource
Dim dt2 As fxDataSource
Dim dt3 As fxDataSource
Dim nms As String() = {"门店","库位"} '指定连接列

Dim dts() As fxDataSource = {dt3, dt2, dt1}
Dim pdt As fxDataSource = Nothing
For Each dt As object In dts
    If pdt Is Nothing AndAlso dt IsNot Nothing Then
        pdt = dt
    Else
        If pdt IsNot Nothing AndAlso dt IsNot Nothing Then
            pdt.Combine(nms,dt,nms)
        End If
    End If
Next

Tables(e.Form.Name & "_table1").DataSource = pdt

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 4 次数据查询