Foxtable(狐表)用户栏目专家坐堂 → 关于多表查找


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

主题:关于多表查找

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


加好友 发短信
等级:四尾狐 帖子:929 积分:6500 威望:0 精华:0 注册:2014/6/25 10:48:00
关于多表查找  发帖心情 Post By:2021/12/1 15:27:00 [只看该作者]

老师,我有一个档案表,比如客商档案表A,其中有一列为客商编码,另外有表B的C列、F列、S列对表A的客商编码相对应,同时还有表C的客商编码列。现在要查找判断,在表B的C\F\S(因为在同一个表,列名称不同),或表C的客商编码列是否找到相同的编码。如果找到,表A的使用标志列设置为true,否则为false.
请问这代码怎么写?麻烦贴出代码,谢谢!!

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105467 积分:536320 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/12/1 16:15:00 [只看该作者]

DataColChanged事件中设置如下代码:

1
2
3
4
5
6
7
8
9
10
11
12
If e.DataCol.Name = "客商编码" Then '如果内容发生变动的是品名列
    If e.NewValue Is Nothing Then '如果新值是空白,也就是品名列的内容为空
        e.
DataRow("
标志列") = false '那么清空此行单价列的内容
    
Else
        Dim
 dr As DataRow
        
'否则在产品表查找同名的产品行,将找到的行赋值给变量dr
        dr = 
DataTables("表C").Find("[
客商编码] = '" & e.NewValue & "'")
        If
 dr IsNot Nothing Then '如果找到了同名的产品行,也就是dr不是Nothing
            e.
DataRow("
标志列") = true
        End
 If
    End
 If
End
 If

 回到顶部