Foxtable(狐表)用户栏目专家坐堂 → 查询赋值的问题


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

主题:查询赋值的问题

帅哥哟,离线,有人找我吗?
120785713
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:195 积分:1395 威望:0 精华:0 注册:2014/1/21 9:45:00
查询赋值的问题  发帖心情 Post By:2014/11/29 0:08:00 [显示全部帖子]

表A第一列是字符型      第二列是逻辑型       表B中的第一列添加了和表A第一列相同的数据时      表A的第二列被勾选      

                                                          表B中的第一列删除了和表A第一列相同的数据时      表A的第二列取消勾选

搞了半天也没搞懂   求助哪位高手帮帮忙           先谢谢了

 


 回到顶部
帅哥哟,离线,有人找我吗?
120785713
  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:195 积分:1395 威望:0 精华:0 注册:2014/1/21 9:45:00
  发帖心情 Post By:2014/11/29 9:27:00 [显示全部帖子]

说明里的这一段我看了好长时间   还是没搞明白


 回到顶部
帅哥哟,离线,有人找我吗?
120785713
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:195 积分:1395 威望:0 精华:0 注册:2014/1/21 9:45:00
  发帖心情 Post By:2014/11/29 9:29:00 [显示全部帖子]

我想知道的是被引用的表数据行做一个标注   以便筛选数据用

 回到顶部
帅哥哟,离线,有人找我吗?
120785713
  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:195 积分:1395 威望:0 精华:0 注册:2014/1/21 9:45:00
  发帖心情 Post By:2014/11/29 22:50:00 [显示全部帖子]

谢谢  狐爸  不过这样的话行数太多会不会造成  运算耗时呢


 回到顶部
帅哥哟,离线,有人找我吗?
120785713
  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:195 积分:1395 威望:0 精华:0 注册:2014/1/21 9:45:00
  发帖心情 Post By:2014/11/29 23:09:00 [显示全部帖子]

If e.DataCol.Name = "第一列" Then  
    Dim dr As  DataRow
    dr =  DataTables("表A").Find("[第一列] = '" & e.OldValue &  "'")
    If dr IsNot Nothing
        dr(“第二列") = False
    Else
    End  If
End  If

If e.DataCol.Name = "第一列" Then  
    Dim dr As  DataRow
    dr =  DataTables("表A").Find("[第一列] = '" & e.NewValue &  "'")
    If dr IsNot Nothing
        dr(“第二列") = True
    Else
    End  If
End  If

狐爸帮我看一下     这写到事件中可以实现更改   不过删除单行可以写一段到  删除键代码中    多行删除我就没没什么好办法了(比如说表B是明细表 父表行被删除关联的多行被同时删除)


 回到顶部
帅哥哟,离线,有人找我吗?
120785713
  6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:195 积分:1395 威望:0 精华:0 注册:2014/1/21 9:45:00
  发帖心情 Post By:2014/12/26 14:51:00 [显示全部帖子]

非常完美的搞定   谢谢了甜老师


 回到顶部