主题：自动填充表

 老师，下列代码是自动填充另一张表的列，现在需要加入条件，比如有一逻辑列A，当A=TRUE时对应行的内容填充到另一张表相应的列，为A=FALSE的行的内容不填充过去。这个条件怎么设置，代码加入到哪个位置？麻烦老师解答，谢谢！！

For Each r As Row In CurrentTable.Rows
        DataTables("隐性债务总览表").datarows.clear
        Dim f As New Filler
        f.SourceTable = DataTables("债务举借明细表") '指定数据来源
        f.SourceCols = "债务单位简称,债务单位,债务编码,债务名称,项目简称,项目名称,项目编码,债务类别,债权人,债权类型" '指定数据来源列
        f.DataTable = DataTables("隐性债务总览表") '指定数据接收表
        f.DataCols = "债务单位简称,债务单位,债务编码,债务名称,项目简称,项目名称,项目编码,债务类别,债权人,债权类型" '指定数据接收列
        f.ExcludeExistValue = True
        f.Fill() '填充数据
Next
MainTable = Tables("隐性债务总览表")