| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- ctrl不支持多选带来的导出问题有什么好的解决方法？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=31013) |
| -- 作者：dongzhenzhong -- 发布时间：2013/4/8 17:00:00 -- ctrl不支持多选带来的导出问题有什么好的解决方法？ 我想做一件事：选择两行记录，然后导出。 导出成txt的时候，可以选择只导出选择行，因此要先将这两条记录选中，然后再导出。 因为这两行记录不靠在一起，按住ctrl多选的时候发现不支持！ shift选择连续的行倒是支持。 要是狐表能够支持ctrl多选就更好啦！
现在有什么好的办法解决这个问题吗? 我将记录的复选框显示出来，然后自己勾选需要导出的那两条记录，然后怎么办呢？ 我看export函数的参数不接受Row，而是用SourceTableName来导出整表。虽然有Filter选项，但是该选项不可以“[_Checked] = True”啊，没有_Checked列。。。 到是有“[_Locked] = True”，难道让我先将所有Checked的列Locked，然后再用.Filter = “[_Locked] = True”来将就使用export函数？
有没有将Checked列导出到excel或者TXT的代码示例啊？
大牛们，给点建议吧，才接触狐表 [此贴子已经被作者于2013-4-8 17:02:01编辑过]
|
| -- 作者：XYT -- 发布时间：2013/4/8 17:06:00 -- 还不如直接导出时第几行和第几行就可以了 |
| -- 作者：dongzhenzhong -- 发布时间：2013/4/8 22:48:00 -- 以下是引用muhua在2013-4-8 17:07:00的发言：
Tables("表名").ShowCheckBox = true
For Each r As Row In Tables("表名").GetCheckedRows
用这种方法复制好表再导出吧。 |
| -- 作者：dongzhenzhong -- 发布时间：2013/4/8 22:49:00 -- 复制代码怎么写呀？可以给个代码示例吗？ |
| -- 作者：FoxMan -- 发布时间：2013/4/8 23:12:00 -- Dim flt as string For Each r As Row In Tables("订单").GetCheckedRows flt =flt & "\',\'" & r("产品") \'合成导出条件 Next if flt isnot nothing then flt = "[产品] In (" & flt.substring(2) & "\')") ex.SourceTableName = "订单" \'指定导出表 ex.FilePath = "D:\\" \'指定目标文件 ex.Format = "Delimited" \'导出格式为符号分割的文本文件 ex.Fields = "日期,客户,数量,单价"
\'指定导出字段ex.Filter = flt \'指定导出条件 ex.Export() \'开始导出 |