计算同一数据列有多少个相同的数据 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 计算同一数据列有多少个相同的数据

共有2916人关注过本帖树形打印复制链接主题：计算同一数据列有多少个相同的数据

有点蓝

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

等级：超级版主帖子：105948 积分：538809 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/1/13 8:45:00 [显示全部帖子]

先看看：http://www.foxtable.com/webhelp/topics/0604.htm，不同事件有不同的e参数，菜单按钮不存在e.DataTable、e.DataRow这种东西，使用GetValues一句代码就可以了

dim cnt as integer = DataTables("接头BOM").GetValues("物料号").count

if cnt > 1

messagebox.show("本页面存在" & cnt & "个以上不同的物料号!")

end i

有点蓝

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

等级：超级版主帖子：105948 积分：538809 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/1/14 9:04:00 [显示全部帖子]

.GetValues("物料号"，tables("接头BOM").filter)

有点蓝

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

等级：超级版主帖子：105948 积分：538809 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/1/14 15:38:00 [显示全部帖子]

Dim st1 As String = "45107-800-01"

Dim filter As String = Tables("接头BOM").filter

If filter > "" Then

filter = filter & " and "

End If

filter = filter & " 原材料 = '" & st1 & "'"

Dim dr1 As DataRow = DataTables("接头BOM").Find(filter )

If dr1 IsNot Nothing AndAlso dr1.IsNull("杆数") = False

dr1("数量") = dr1("杆数") * 2

dr1("生产核对记录") = "已核对 " & User.Name & " " & Date.Now

End If

有点蓝

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

等级：超级版主帖子：105948 积分：538809 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/1/16 9:43:00 [显示全部帖子]

主题：计算同一数据列有多少个相同的数据