| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 复制及统计 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=170170) |
||||||||||||||||||||||||||||
| -- 作者：jick0526 -- 发布时间：2021/7/14 17:24:00 -- 复制及统计 老师，请问下我想做个按钮，当我点击按钮时，表1内只要是大于1行的数据会自动统计名称列有多少数量总数并复制到表2，如下面表1，当我点击按钮时，会自动把苹果和香蕉列（大于1行）以及总数数量复制和统计到表2，代码要怎么写，麻烦老师帮我写下，谢谢！ 表1
表2
|
||||||||||||||||||||||||||||
| -- 作者：有点蓝 -- 发布时间：2021/7/14 17:39:00 -- 做个分组统计：http://www.foxtable.com/webhelp/topics/0677.htm 遍历统计表，把统计数量大于1的行复制到表2：http://www.foxtable.com/webhelp/topics/1533.htm
|
||||||||||||||||||||||||||||
| -- 作者：jick0526 -- 发布时间：2021/7/14 20:24:00 -- 老师，请问下面的代码要放哪里 Dim Cols1() As String = {"销售属性","数量"} Dim Cols2() As String = {"销售属性","数量"} For Each dr1 As DataRow In DataTables("统计表").Select("[数量] > 1") Dim dr2 As DataRow = DataTables("统计").AddNew() For i As Integer = 0 To Cols1.Length -1 dr2(Cols2(i)) = dr1(Cols1(i)) Next Next
|
||||||||||||||||||||||||||||
| -- 作者：jick0526 -- 发布时间：2021/7/14 20:34:00 -- 老师，我把下面的代码放到按钮里面，点击后不会到统计的表里面去，能帮我修改下吗？谢谢！ Dim Cols1() As String = {"销售属性","数量"} Dim Cols2() As String = {"销售属性","数量"} For Each dr1 As DataRow In DataTables("统计表").Select("[数量] > 1") Dim dr2 As DataRow = DataTables("统计").AddNew() For i As Integer = 0 To Cols1.Length -1 dr2(Cols2(i)) = dr1(Cols1(i)) Next Next
|
||||||||||||||||||||||||||||
| -- 作者：有点蓝 -- 发布时间：2021/7/15 8:38:00 -- 做分组统计了吗？：http://www.foxtable.com/webhelp/topics/0677.htm |