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


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

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

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


加好友 发短信
等级:一尾狐 帖子:476 积分:4039 威望:0 精华:0 注册:2011/11/2 8:55:00
  发帖心情 Post By:2014/10/20 18:03: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

 回到顶部
总数 11 上一页 1 2