Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]自定义函数代码


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

主题：[求助]自定义函数代码
帅哥哟，离线，有人找我吗？
铜豆
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：78 积分：589 威望：0 精华：0 注册：2016/12/15 18:05:00 		[求助]自定义函数代码  发帖心情 Post By：2017/3/7 21:28:00 [只看该作者]

老师帮我写一个类似于电子表格Sumproduct函数的代码（最好事可以根据条件，先乘后加）

 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110590 积分：562846 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/3/7 23:00:00 [只看该作者]


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


加好友 发短信
等级：婴狐 帖子：78 积分：589 威望：0 精华：0 注册：2016/12/15 18:05:00 		  发帖心情 Post By：2017/3/8 1:06:00 [只看该作者]

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编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110590 积分：562846 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/3/8 8:53:00 [只看该作者]

截图说明一下

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


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/3/8 9:46:00 [只看该作者]

 请举例说明你的逻辑是什么。

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


加好友 发短信
等级：婴狐 帖子：78 积分：589 威望：0 精华：0 注册：2016/12/15 18:05:00 		  发帖心情 Post By：2017/3/8 10:43:00 [只看该作者]

图片点击可在新窗口打开查看
 回到顶部
帅哥，在线噢！
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110590 积分：562846 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/3/8 10:56:00 [只看该作者]

还是没看懂

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


加好友 发短信
等级：婴狐 帖子：78 积分：589 威望：0 精华：0 注册：2016/12/15 18:05:00 		  发帖心情 Post By：2017/3/8 11:08:00 [只看该作者]

图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看

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


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/3/8 11:11:00 [只看该作者]

上传实例，具体说一个例子说明逻辑是什么。

 回到顶部
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 次数据查询