Foxtable(狐表)用户栏目专家坐堂 → [原创]多列跨表更新,引用的列如果是通过表达式或函数计算的能否引用


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

主题:[原创]多列跨表更新,引用的列如果是通过表达式或函数计算的能否引用

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


加好友 发短信
等级:婴狐 帖子:46 积分:452 威望:0 精华:0 注册:2021/5/14 14:05:00
[原创]多列跨表更新,引用的列如果是通过表达式或函数计算的能否引用  发帖心情 Post By:2021/6/16 12:02:00 [只看该作者]

老师:多列跨表更新,引用的列如果是通过表达式或函数计算的能否引用,如下:

If e.DataCol.Name = "平均含量" Then
    If e.NewValue Is Nothing Then
        e.
DataRow("含量1") = Nothing
        e.
DataRow("含量2") = Nothing
        e.
DataRow("含量3") = Nothing
        e.
DataRow("含量4") = Nothing
    Else
       
Dim dr As DataRow
        dr =
DataTables("表1").Find("[平均含量] = '" & e.NewValue & "'")
        If
dr IsNot Nothing

            e.
DataRow("含量1") = dr("含量1")
            e.
DataRow("含量2") = dr("含量2")
            e.
DataRow("含量3") = dr("含量3")
            e.
DataRow("含量4") = dr("含量4")
        End
If
   
End If
End
If


Select Case e.DataCol.Name
    Case
"含量1","含量2","含量3",
"含量4"
       
Dim Filter As String = "[平均含量] = '" & e.DataRow("平均含量") & "'"
        DataTables("表2").ReplaceFor(e.DataCol.Name, e.NewValue, Filter)
End
Select


其中:含量1,含量2,含量3,含量4,平均含量都是通过表达式计算出来 的,这样的跨表引用的自动更新,更新不了,有办法没有?


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


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


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


加好友 发短信
等级:婴狐 帖子:46 积分:452 威望:0 精华:0 注册:2021/5/14 14:05:00
  发帖心情 Post By:2021/6/16 16:10:00 [只看该作者]

谢谢老师

 回到顶部