Foxtable(狐表)用户栏目专家坐堂 → 新人求教-查找的问题


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

主题:新人求教-查找的问题

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


加好友 发短信
等级:幼狐 帖子:109 积分:1074 威望:0 精华:0 注册:2019/1/16 22:56:00
新人求教-查找的问题  发帖心情 Post By:2019/1/16 23:07:00 [只看该作者]

本人刚学狐表,做个小小的统计表,想请教高手帮编辑下公式,如下图中,表B是各公司的基础信息,我想在表A中找到相关公司在表B的内容显示在相关列中,即表A中名称列的公司在表B中出现的就在存在列显示D,没有的就显示X,编号列中显示公司在表B中编号列的内容,单价就显示表B中相关月份的单价
求公式或是方法

图片点击可在新窗口打开查看此主题相关图片如下:微信截图_20190114112516.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:微信截图_20190114112453.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2019/1/16 23:09:39编辑过]

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/1/16 23:08:00 [只看该作者]


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


加好友 发短信
等级:幼狐 帖子:109 积分:1074 威望:0 精华:0 注册:2019/1/16 22:56:00
  发帖心情 Post By:2019/1/17 16:02:00 [只看该作者]

那个看不懂,能不能帮写个公式,我好照例看说明

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/1/17 16:09:00 [只看该作者]

datacolchanged事件

 

If e.datacol.name = "名称" orelse e.datacol.name = "单价月份" Then

    Dim fdr As DataRow = DataTables("表B").find("名称='" & e.datarow("名称") & "'")

    If fdr IsNot Nothing Then

        e.datarow("存在") = "D"

        e.datarow("编号") = fdr("编号")

        If fdr.datatable.datacols.contains(e.datarow("单价月份")) then

            e.datarow("单价") = fdr(e.datarow("单价月份"))

        Else

            e.datarow("单价") = nothing

        End If

    Else

        e.datarow("存在") = "X"

        e.datarow("编号") = nothing

        e.datarow("单价") = nothing

    End If

End If


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


加好友 发短信
等级:幼狐 帖子:109 积分:1074 威望:0 精华:0 注册:2019/1/16 22:56:00
  发帖心情 Post By:2019/1/17 23:56:00 [只看该作者]

非常感谢,存在和编号那个实现了,就是单价没出来,还有就是能不能用FX那个公式来实现这几个公能呀。

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/1/18 8:50:00 [只看该作者]

If e.datacol.name = "名称" orelse e.datacol.name = "单价月份" Then

    Dim fdr As DataRow = DataTables("表B").find("名称='" & e.datarow("名称") & "'")

    If fdr IsNot Nothing Then

        e.datarow("存在") = "D"

        e.datarow("编号") = fdr("编号")

        If fdr.datatable.datacols.contains("单价" & e.datarow("单价月份")) then

            e.datarow("单价") = fdr("单价" & e.datarow("单价月份"))

        Else

            e.datarow("单价") = nothing

        End If

    Else

        e.datarow("存在") = "X"

        e.datarow("编号") = nothing

        e.datarow("单价") = nothing

    End If

End If


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


加好友 发短信
等级:幼狐 帖子:109 积分:1074 威望:0 精华:0 注册:2019/1/16 22:56:00
  发帖心情 Post By:2019/2/9 2:13:00 [只看该作者]

甜版主,你的邮件怎么发不了呀,退信了,有事找您私聊

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/2/10 11:40:00 [只看该作者]

以下是引用hcfbehero在2019/2/9 2:13:00的发言:
甜版主,你的邮件怎么发不了呀,退信了,有事找您私聊

 

有问题直接在论坛里面发即可。如果问题没有解决,把实例发上来测试一下。


 回到顶部