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

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table

２１楼程序。

你勾选哪些行，就导出哪些行啊，自己认认真真看懂代码啊，自己修改成自己需要的啊。

变灰的原因，如果你用的是试用版，就是你试用期到了；如果你购买的是正版，就应该是你的激活码不正确造成的。

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

这句代码怎样改：

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

Dim idx As String = "-1,"

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

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

Next

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

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

 失效指什么？帮你写的导出的代码，就是只是导出勾选的行而已啊。

假如按合同号筛选出来有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楼

Dim idx As String = "-1,"

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

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

Next

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