Dim dr1 As DataRow = e.DataRow
Dim lms As List(Of String) = DataTables("词库").GetValues("列名","[列名] like 'F*'","序号")
Dim lms1 As New List(Of String)
lms1.Add("展现")
lms1.Add("点击")
lms1.Add("消费")
Dim Ing,Ing2 As Double
For Each lm1 As String In lms1
For Each lm As String In lms
Dim exp As String = "["& lm1 &"] * [" & lm & "]"
Dim drs As List(of DataRow) = DataTables("百度搜索词").Select( " [" & lm & "] = 1")
For Each dr As DataRow In drs
Ing = Eval(exp,dr)
Ing2 = Ing2 + Ing
Next
output.show(Ing2)
Ing2 = 0
Next
Next
1、老师我就像实现这样的功能，但是我感觉我的代码不够优化，出现多次循环的地方（有底纹的地方每次只需要循环一次然后就退出，然后重新进入外层循环），老师帮我看看是否可优化
2、能否把上面的代码做出公式嵌套在compute里面使用（上述要表达的意思就是同行相乘，然后再把所有乘的结果相加）
[此贴子已经被作者于2017/3/8 1:15:18编辑过]
加好友 
发短信
Post By：2017/3/7 21:28:00 [显示全部帖子]
