Foxtable(狐表)用户栏目专家坐堂 → [求助]如何让一个工作表列的值变化后,另一个也跟着变化


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

主题:[求助]如何让一个工作表列的值变化后,另一个也跟着变化

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


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

 参考,你必须确实是哪一行,才能修改的。

 

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

 


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


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

If e.DataCol = "第一列" Then
    Dim dr As DataRow =DataTables("表B").Find("第一列 = '" & dr("第一列") & "'")
    If dr IsNot Nothing Then
        If e.NewValue = "AAA" Then
            dr("第一列")="BBC"
        Else If e.NewValue = "ABA" Then
            dr("第一列")="BBa"
        Else If e.NewValue = "ACA" Then
            dr("第一列")="BBD"
        End If
    End If
End If

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


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

Dim dr As DataRow = e.DataRow
If e.DataCol.Name = "第一列" Then
    Dim dr As DataRow =DataTables("表B").Find("第一列 = '" & dr("第一列") & "'")
    If dr IsNot Nothing Then
        If e.NewValue = "AAA" Then
            dr("第一列")="BBC"
        Else If e.NewValue = "ABA" Then
            dr("第一列")="BBa"
        Else If e.NewValue = "ACA" Then
            dr("第一列")="BBD"
        End If
    End If
End If
[此贴子已经被作者于2014-10-20 17:39:52编辑过]

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


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

If e.DataCol.Name = "第一列" Then
    Dim dr As DataRow =DataTables("表B").Find("第一列 = '" & e.DataRow("第一列") & "'")
    If dr IsNot Nothing Then
        If e.NewValue = "AAA" Then
            dr("第一列")="BBC"
        Else If e.NewValue = "ABA" Then
            dr("第一列")="BBa"
        Else If e.NewValue = "ACA" Then
            dr("第一列")="BBD"
        End If
    End If
End If

 回到顶部