Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] 导出复选列数据问题


  共有4358人关注过本帖树形打印复制链接

主题：[求助] 导出复选列数据问题
帅哥哟，离线，有人找我吗？
rjhui
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：21 积分：231 威望：0 精华：0 注册：2013/8/27 8:46:00 		[求助] 导出复选列数据问题  发帖心情 Post By：2013/9/5 15:19:00 [显示全部帖子]

导出复选列该怎么处理呢？希望高手给予指导。
'设置文件名称

Dim dclj As WinForm.TextBox = e.Form.Controls("导出路径")
mlyc=dclj.Value & "\" & nf & "年" & yf & "业务数据.xls"

'导出提示
MessageBox.Show("开始导出表格,可能长点时间,请耐心等待")

'选择名称
Dim mingcheng As WinForm.CheckBox = e.Form.Controls("名称")
If mingcheng.Checked = True Then
    '执行自定义函数"名称" 
    'Functions.Execute("名称")
    Dim flg7 As New SaveExcelFlags
    flg7.MergedRanges = True
    flg7.CellStyle = True
    'Tables("YWTYPE").SaveExcel(mlyc,"业务数据",flg7)
    Tables("YWTYPE").SaveExcel(mlyc,"业务数据",flg7)
End If
MessageBox.Show("结束导出表格.")
图片点击可在新窗口打开查看此主题相关图片如下：qq截图20130905151831.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
rjhui
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：21 积分：231 威望：0 精华：0 注册：2013/8/27 8:46:00 		  发帖心情 Post By：2013/9/5 15:25:00 [显示全部帖子]

表是“YWTYPE” 窗口已经设计好了，附件就是的。

 回到顶部
帅哥哟，离线，有人找我吗？
rjhui
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：21 积分：231 威望：0 精华：0 注册：2013/8/27 8:46:00 		  发帖心情 Post By：2013/9/5 15:35:00 [显示全部帖子]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:复选框.rar
 回到顶部
帅哥哟，离线，有人找我吗？
rjhui
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：21 积分：231 威望：0 精华：0 注册：2013/8/27 8:46:00 		  发帖心情 Post By：2013/9/5 15:52:00 [显示全部帖子]

示例

 回到顶部
帅哥哟，离线，有人找我吗？
rjhui
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：21 积分：231 威望：0 精华：0 注册：2013/8/27 8:46:00 		  发帖心情 Post By：2013/9/5 15:53:00 [显示全部帖子]

以下是引用狐狸爸爸在2013-9-5 15:39:00的发言：

商业版格式：

 

 

 下载信息  [文件大小：312.0 KB  下载次数：1]
图片点击可在新窗口打开查看点击浏览该文件:管理项目14.table
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:复选框.rar
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.07422 秒, 7 次数据查询