求助，使用年限的表达式公式？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有2937人关注过本帖树形打印复制链接主题：求助，使用年限的表达式公式？

y2287958

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：狐神帖子：4640 积分：33850 威望：0 精华：0 注册：2008/8/31 22:44:00

Post By：2021/4/24 13:54:00 [显示全部帖子]

DataTables("表A").DataCols("使用年限1").Expression = Date.Today.Year & " - Convert(Substring([设备注册代码],11,4), 'System.Int32')"

y2287958

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：狐神帖子：4640 积分：33850 威望：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)

For Each k As String In dic.Keys '显示所有键及其对应的值

Output.Show(K & ":" & dic(k))

主题：求助，使用年限的表达式公式？