Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求助，使用年限的表达式公式？


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

主题：求助，使用年限的表达式公式？
帅哥哟，离线，有人找我吗？
y2287958
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：4724 积分：34374 威望：0 精华：0 注册：2008/8/31 22:44:00 		  发帖心情 Post By：2021/4/24 13:59:00 [只看该作者]

Dim dic As New Dictionary(Of String, Integer)
For Each dr As DataRow In DataTables("问题统计").DataRows
    For Each s As String In dr("问题项目").split(";")
        If dic.ContainsKey(s) Then dic(s) += 1 Else dic.Add(s,1)
    Next
Next
For Each k As String In dic.Keys  '显示所有键及其对应的值
    Output.Show(K & ":" & dic(k))
Next
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109678 积分：558082 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/4/24 14:06:00 [只看该作者]

以下是引用y2287958在2021/4/24 13:54:00的发言：
DataTables("表A").DataCols("使用年限1").Expression = Date.Today.Year & " - Convert(Substring([设备注册代码],11,4), 'System.Int32')"

这个还得每年改一次表达式

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


加好友 发短信
等级：小狐 帖子：391 积分：3179 威望：0 精华：0 注册：2008/8/31 20:44:00 		  发帖心情 Post By：2021/4/24 15:13:00 [只看该作者]

设置了统计按钮，没有反映
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:问题统计.table
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109678 积分：558082 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/4/24 15:58:00 [只看该作者]

人家只是提供了一个处理问题的逻辑，结果是输出到命令窗口的。如果要输出结果到一个表格里，先建好这样的结果表，或者参考8楼帮助的方法键一个临时表，在改改11楼代码把结果改到表格里

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


加好友 发短信
等级：小狐 帖子：391 积分：3179 威望：0 精华：0 注册：2008/8/31 20:44:00 		  发帖心情 Post By：2021/4/24 16:18:00 [只看该作者]

在命令窗可以得出想要的结果，自己不会把代码改动，生成一个新的问题统计表。

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


加好友 发短信
等级：超级版主 帖子：109678 积分：558082 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/4/24 16:26:00 [只看该作者]

如果看不懂代码，先学一下基础：http://www.foxtable.com/webhelp/topics/1592.htm，不可能以后每个功能都等着别人写好

Dim dic As New Dictionary(Of String, Integer)
For Each dr As DataRow In DataTables("问题统计").DataRows
    For Each s As String In dr("问题项目").split(";")
        If dic.ContainsKey(s) Then dic(s) += 1 Else dic.Add(s,1)
    Next
Next
dim r as row
For Each k As String In dic.Keys  '显示所有键及其对应的值
r = tables("某统计表").addnew
r("项目") = k
r("计数") = dic(k)
Next
 回到顶部
帅哥哟，离线，有人找我吗？
wusim
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：391 积分：3179 威望：0 精华：0 注册：2008/8/31 20:44:00 		  发帖心情 Post By：2021/4/24 18:20:00 [只看该作者]

问题解决了，问题项目分为2种设备所存在的问题，我用Tables("问题统计").Filter = "[设备类别] = '曳引与强制驱动'" 筛选后统计也是全部数据统计， 我只想统计筛选行的问题项目数量。怎样处理

Tables("问题统计").Filter = "[设备类别] = '电梯'"
Dim dic As New Dictionary(Of String, Integer)
For Each dr As DataRow In DataTables("问题统计").DataRows
    For Each s As String In dr("问题项目").split(";")
        If dic.ContainsKey(s) Then dic(s) += 1 Else dic.Add(s,1)
    Next
Next
dim r as row
For Each k As String In dic.Keys  '显示所有键及其对应的值
r = tables("某统计表").addnew
r("项目") = k
r("计数") = dic(k)
Next
 回到顶部
帅哥哟，离线，有人找我吗？
wusim
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：391 积分：3179 威望：0 精华：0 注册：2008/8/31 20:44:00 		  发帖心情 Post By：2021/4/24 20:28:00 [只看该作者]

太多广告，没办法，顶一下
[此贴子已经被作者于2021/4/25 5:23:36编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
wusim
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：391 积分：3179 威望：0 精华：0 注册：2008/8/31 20:44:00 		  发帖心情 Post By：2021/4/24 21:37:00 [只看该作者]

太多广告，没办法，顶一下

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


加好友 发短信
等级：小狐 帖子：391 积分：3179 威望：0 精华：0 注册：2008/8/31 20:44:00 		  发帖心情 Post By：2021/4/25 5:24:00 [只看该作者]

太多广告，没办法，顶一下

 回到顶部
总数 21 上一页 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.07031 秒, 5 次数据查询