主题：[求助]关于导出数据

２１楼程序。

 能不能只显示复选框选框选中的行，不是隐藏没有选中的行。

这句代码怎样改：

For Each r As Row In Tables("员工").GetCheckedRows
    r.Delete
Next

如果按了钩选按钮，再按导出数据按钮，导出数据按钮功能失效？

假如按合同号筛选出来有20条符合要求的数据行，窗口停靠在上方，下方的基本信息表不能显示符合条件的20条数据行，不能一眼看到钩选后的数据行，想隐藏没有钩选的筛选框的数据行，这样就可以一眼看到了，但是钩选按钮用以下代码：

Dim idx As String = "-1,"

For Each r As Row In Tables("基本信息表").GetCheckedRows

    idx &= r("_Identify") & ","

Next

Tables("基本信息表").filter = "_Identify in (" & idx.trim(",") & ")"

 

但是按钩选按钮，再按导出数据按钮步显示错误。 为了防止误按钩选按钮再按导出数据按钮，显示错误提示，我想

如果按了钩选按钮，再按导出数据按钮，导出数据按钮功能失效？

就是按了等于没有按一样。图片见22楼

解决问题了，谢谢老师耐心指导。