欢迎您:游客!请先
登录
或
注册
风格
恢复默认设置
|
展区
文件集浏览
图片集浏览
Flash浏览
音乐集浏览
电影集浏览
|
搜索
Foxtable(狐表)
→
用户栏目
→
专家坐堂
→ ctrl不支持多选带来的导出问题有什么好的解决方法?
新的主题
投票帖
小字报
下一主题 >>
<< 上一主题
共有
7005
人关注过本帖
树形
打印
复制链接
主题:ctrl不支持多选带来的导出问题有什么好的解决方法?
FoxMan
小
大
1楼
|
信息
|
搜索
|
邮箱
|
主页
|
UC
加好友
发短信
等级:小狐
帖子:
302
积分:1860
威望:0
精华:0
注册:
2012/4/27 11:34:00
Post By: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) & "')
")
Dim
ex
as
New
Exporter
ex
.
SourceTableName
=
"订单"
'指定导出表
ex.FilePath = "D:\" '指定目标文件
ex.Format = "Delimited" '导出格式为符号分割的文本文件
ex.Fields =
"日期,客户,数量,单价"
'指定导出字段
ex
.
Filter
=
flt
'指定导出条件
ex.Export()
'开始导出
下一主题 >>
<< 上一主题
RSS2.0
|
Xhtml无图版
|
Xslt无图版
Copyright © 2000 - 2018
foxtable
.com
Tel: 4000-810-820 粤ICP备11091905号
Powered By
Dvbbs
Version 8.3.0
页面执行时间 0.03125 秒, 5 次数据查询