主题：求解：可不可以这样呢：当我“8月房抵贷数据检视”这个表中“最新进度”这一列为‘完结’时

求解：可不可以这样呢：当我“8月房抵贷数据检视”这个表中“最新进度”这一列为‘完结’时，“公司收入分配明细表”相对应的只出现相应的行的数据，其中，渠道名称是个连接条件，只有两个表的“渠道名称”这一列相同才显示行数据

对表格设置筛选或者加载，即可。如

 

Tables("表名").Filter = "某列 = '" & Tables("某表").Current("某列") & "'"

这个是在afteropenproject上写吗，要不要关联表呢

对了，还有一个条件，就是最终只要“8月房抵贷数据检视”这个表中的“最新进度”这一列为“完结”时的进度的数据

这个条件要怎么加呢

 

你可以写在DataColChanged、AfterEdit、CurrentChanged等事件里面。

好的

请问一下这一行这样写错在哪里呢：

代码这样写，写到你需要的各个事件。

 

Dim r As Row = Tables("最新通过").Current

If r("最新进度") = "完结" Then

    Tables("表名").Filter = "合作渠道='" & r("合作渠道") & "'"

Else

    Tables("表名").Filter = ""

End If

哇，是这样，好的，谢谢