请教专家：下面一段按钮的事件

For Each r As Row In Tables("合同打印_table1").Rows
    If r("配送公司名称") = Forms("合同打印").Controls("TextBox2").text     Then
       r.Checked = True
   End If
Next

 按帮助中的例子，执行后应该是满足条件的行会被选中，由此生成excel报表时只生成满足条件而被选中的行，但执行时却是表中所有的行，手动选中则没问题，困惑中，求解答

 生成excel报表的时候，没有根据checked来生成的。只能根据某些的条件。

 或者试试代码

 Dim idxs As String = "-1,"
For Each r As Row In Tables("合同打印_table1").Rows
    If r("配送公司名称") = Forms("合同打印").Controls("TextBox2").text     Then
        r.Checked = True
        idxs &= r("_Identify") & ","
    End If
Next
Tables("合同打印_table1").Filter = "_Identify in (" & idxs.trim(",") & ")"

谢谢，太麻烦你了，有了你们的帮助，大大加快了进度，为表示对你们的支持我决定买你们的一个商业版