Foxtable(狐表)用户栏目专家坐堂 → [求助]跨表条件计算问题


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

主题:[求助]跨表条件计算问题

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


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

 表B,Datacolchanged事件

 

If e.DataCol.Name = "第二列" Then
    Dim fdr As DataRow = DataTables("表A").Find("第一列 = '" & e.DataRow("第二列") & "'")
    If fdr IsNot Nothing Then
        e.DataRow("第三列") = fdr("第二列")
    Else
        e.DataRow("第三列") = Nothing
    End If
End If

 

 http://www.foxtable.com/help/topics/1451.htm

 


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


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

 那规律是什么,获取表A的值后,然后乘以多少?


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


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

If e.DataCol.Name = "第二列" Then
    Dim fdr As DataRow = DataTables("表A").Find("第一列 = '" & e.DataRow("第二列") & "'")
    If fdr IsNot Nothing Then
       
        If e.DataRow("第二列") = "AA" Then
            e.DataRow("第三列") = fdr("第二列") * 1.5
        Else If e.DataRow("第二列") = "BB" Then
            e.DataRow("第三列") = fdr("第二列") * 1.5
        Else If e.DataRow("第二列") = "CC" Then
            e.DataRow("第三列") = fdr("第二列") * 0.5
        End If
       
    Else
        e.DataRow("第三列") = Nothing
    End If
End If

 


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


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

 For Each dr As DataRow In DataTables("表B").DataRows
    Dim fdr As DataRow = DataTables("表A").Find("第一列 = '" & dr("第二列") & "'")
    If fdr IsNot Nothing Then     
        If dr("第二列") = "AA" Then
            dr("第三列") = fdr("第二列") * 1.5
        Else If dr("第二列") = "BB" Then
            dr("第三列") = fdr("第二列") * 1.5
        Else If dr("第二列") = "CC" Then
            dr("第三列") = fdr("第二列") * 0.5
        End If
       
    Else
        dr("第三列") = Nothing
    End If
Next

 回到顶部