- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]填充列平均值（已解决） (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=83702)
-- 发布时间：2016/4/14 20:05:00
-- [求助]填充列平均值（已解决）
列循环，填充列平均值，如何写条件，请各位老师指教，谢谢！！
Dim dr1 As Row = Tables("工效分析").AddNew() \'增加行
dr1("节拍序号") = "平均"
For Each cl As DataCol In t.DataTable.DataCols \'列循环
If cl.Caption <> "节拍序号" Then \'排除列
dr1(cl.Caption) = Tables("工效分析").Compute("Avg(数量)", "....")
End If
Next
此主题相关图片如下：捕获4.png
[此贴子已经被作者于2016/4/14 20:31:45编辑过]
-- 发布时间：2016/4/14 20:07:00
--
dr1(cl.name) = Tables("工效分析").Compute("Avg(" & cl.name & ")")
[此贴子已经被作者于2016/4/14 20:29:39编辑过]
-- 发布时间：2016/4/14 20:08:00
--
dr1(cl.name) = Tables("工效分析").Compute("Avg(" & t.name & ")", "节拍序号 <> \'平均\'")
-- 发布时间：2016/4/14 20:21:00
--
谢谢大红袍老师的指教，但是代码运行无值，是否与临时表有关？请老师赐教，谢谢！
-- 发布时间：2016/4/14 20:24:00
--
Dim t As Table = Tables("工效分析")
Dim dr1 As Row = t.AddNew() \'增加行
dr1("节拍序号") = "平均"
For Each cl As Col In t.Cols \'列循环
If cl.name <> "节拍序号" Then \'排除列
dr1(cl.name) = t.Compute("Avg(" & cl.name & ")", "节拍序号 <> \'平均\'")
End If
Next
Dim dr1 As Row = t.AddNew() \'增加行
dr1("节拍序号") = "平均"
For Each cl As Col In t.Cols \'列循环
If cl.name <> "节拍序号" Then \'排除列
dr1(cl.name) = t.Compute("Avg(" & cl.name & ")", "节拍序号 <> \'平均\'")
End If
Next
[此贴子已经被作者于2016/4/14 20:29:27编辑过]
-- 发布时间：2016/4/14 20:28:00
--
还是一样，没有数据。
-- 发布时间：2016/4/14 20:29:00
--
Dim t As Table = Tables("工效分析")
Dim dr1 As Row = t.AddNew() \'增加行
dr1("节拍序号") = "平均"
For Each cl As Col In t.Cols \'列循环
If cl.name <> "节拍序号" Then \'排除列
dr1(cl.name) = t.Compute("Avg(" & cl.name & ")", "节拍序号 <> \'平均\'")
End If
Next
Dim dr1 As Row = t.AddNew() \'增加行
dr1("节拍序号") = "平均"
For Each cl As Col In t.Cols \'列循环
If cl.name <> "节拍序号" Then \'排除列
dr1(cl.name) = t.Compute("Avg(" & cl.name & ")", "节拍序号 <> \'平均\'")
End If
Next
-- 发布时间：2016/4/14 20:31:00
--
好了，问题解决，谢谢大红袍老师！！