自动累加 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 自动累加

共有1965人关注过本帖树形打印复制链接主题：自动累加

jinzhengbe

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

加好友

发短信

等级：五尾狐帖子：1062 积分：9781 威望：0 精华：0 注册：2012/3/13 5:23:00

自动累加

Post By：2017/1/13 12:35:00 [显示全部帖子]

添加新的行的时候判断

是应该卸载beforeadddatarow事件吧

内容如下

添加新数据之前判断当前表（weixin.ding）是否有相同的name

如果有

在原先相同name 行加1

没有的话就添加行

jinzhengbe

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

加好友

发短信

等级：五尾狐帖子：1062 积分：9781 威望：0 精华：0 注册：2012/3/13 5:23:00

Post By：2017/1/13 16:41:00 [显示全部帖子]

name是当前表的name列

需要注意的是当前表是关联表的子表

还请大师再次指点

jinzhengbe

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

加好友

发短信

等级：五尾狐帖子：1062 积分：9781 威望：0 精华：0 注册：2012/3/13 5:23:00

Post By：2017/1/13 19:09:00 [显示全部帖子]

Dim name = Tables("weixindanhao.weixin").Current("name")
Dim fdr As DataRow =Tables("weinxindanhao.weixin").Find("name = '" & name & "'")
If fdr IsNot Nothing Then
msgbox("已存在")
fdr("shuliang") += 1
With Tables("weixindanhao.weixin")
.Current.Delete()
End With
End If

我想要的是这个效果

在weixindanhao.weixin表里查询 name是否存在

如果存在在原来的行 shuling 加1

并且删除当前行

如果没有存在就添加行