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


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

主题：自动累加
帅哥哟，离线，有人找我吗？
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

没有的话 就 添加行
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

name从哪里来？

 

Dim name = "aaa"

Dim fdr As DataRow = e.DataTable.Find("name = '" & name & "'")

If fdr IsNot Nothing Then

    msgbox("已存在")

    fdr("某列") += 1

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


加好友 发短信
等级：五尾狐 帖子：1062 积分：9781 威望：0 精华：0 注册：2012/3/13 5:23:00 		  发帖心情 Post By：2017/1/13 16:41:00 [只看该作者]

name是当前表的name列

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

还请大师再次指点
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

Dim name = Tables("父表").Current("name)

Dim fdr As DataRow = e.DataTable.Find("name = '" & name & "'")

If fdr IsNot Nothing Then

    msgbox("已存在")

    fdr("某列") += 1

End If
 回到顶部
帅哥哟，离线，有人找我吗？
jinzhengbe
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
并且 删除当前行

如果没有存在 就添加行
 回到顶部
帅哥，在线噢！
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

Dim r As Row = Tables("weixindanhao.weixin").Current
Dim fdr As DataRow =Tables("weinxindanhao.weixin").Find("name = '" & r("name") & "' and [_Identify] <> " & r("_Identify"))
If fdr IsNot Nothing Then
    msgbox("已存在")
    fdr("shuliang") += 1
    r.Delete()
End If
 回到顶部
帅哥哟，离线，有人找我吗？
jinzhengbe
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1062 积分：9781 威望：0 精华：0 注册：2012/3/13 5:23:00 		  发帖心情 Post By：2017/1/15 13:49:00 [只看该作者]

编译错误 没有可访问的find接受此数目的参数，因此决策失败

Dim fdr As DataRow =Tables("weinxindanhao.weixin").Find("name = '" & r("name") & "' and [_Identify] <> " & r("_Identify"))
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

Dim r As Row = Tables("weixindanhao.weixin").Current
Dim idx as Row = Tables("weinxindanhao.weixin").FindRow("name = '" & r("name") & "' and [_Identify] <> " & r("_Identify"))
If idx >= 0 Then
    msgbox("已存在")
    Tables("weinxindanhao.weixin").Rows(idx)("shuliang") += 1
    r.delete
End If
 回到顶部
帅哥哟，离线，有人找我吗？
jinzhengbe
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1062 积分：9781 威望：0 精华：0 注册：2012/3/13 5:23:00 		  发帖心情 Post By：2017/1/15 16:46:00 [只看该作者]

没有为类型row 和integer定义运算符

if idx>=0 then


出现上面的错误
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

Dim r As Row = Tables("weixindanhao.weixin").Current
Dim idx as Integer = Tables("weinxindanhao.weixin").FindRow("name = '" & r("name") & "' and [_Identify] <> " & r("_Identify"))
If idx >= 0 Then
    msgbox("已存在")
    Tables("weinxindanhao.weixin").Rows(idx)("shuliang") += 1
    r.delete
End If
 回到顶部
总数 14 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 4 次数据查询