以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 如何写一个统计列 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=149702) |
||||
-- 作者:ygg8310 -- 发布时间:2020/5/9 15:45:00 -- 如何写一个统计列 例如这个
Dim Sum As Integer For Each r As Row In Tables("表A").Rows 后面就不会了,怎么破? |
||||
-- 作者:有点蓝 -- 发布时间:2020/5/9 15:52:00 -- 没看懂。要什么效果?手工填写一下截图看看 |
||||
-- 作者:ygg8310 -- 发布时间:2020/5/9 15:58:00 -- 这样的
|
||||
-- 作者:有点蓝 -- 发布时间:2020/5/9 16:28:00 -- For Each s As String In DataTables("表A").GetValues("产品") Dim cnt As Integer = DataTables("表A").Compute("count(产品)","产品=\'" & s & "\'") DataTables("表A").ReplaceFor("数量",cnt,"产品=\'" & s & "\'") Next
|
||||
-- 作者:ygg8310 -- 发布时间:2020/5/21 23:00:00 -- 老师 For Each s As String In DataTables("表B").GetValues("产品|品名") Dim cnt As Integer = DataTables("表B").Compute("count(产品)","产品 =\'" & s("产品") & "\' And 品名 =\'" & s("品名") & "\'") DataTables("表B").ReplaceFor("数量",cnt,"产品=\'" & s("产品") & "\' And 品名=\'" & s("品名") & "\'") Next 这个该怎么改?
|
||||
-- 作者:有点蓝 -- 发布时间:2020/5/21 23:17:00 -- For Each s As String() In DataTables("表B").GetValues("产品|品名") Dim cnt As Integer = DataTables("表B").Compute("count(产品)","产品 =\'" & s(0) & "\' And 品名 =\'" & s(1) & "\'") DataTables("表B").ReplaceFor("数量",cnt,"产品=\'" & s(0) & "\' And 品名=\'" & s(1) & "\'") Next
|