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


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

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

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


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


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | 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的发言:
甜版主,你的邮件怎么发不了呀,退信了,有事找您私聊

 

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


 回到顶部