- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助] 导出复选列数据问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=39957)
-- 发布时间：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
此主题相关图片如下：qq截图20130905151831.png-- 发布时间：2013/9/5 15:23:00
--
这个只能直接编码导出数据：
http://www.foxtable.com/help/topics/1148.htm
搞不定的话，你最好将你的表传上来，并设计好窗口，别人可以直接帮你写好代码。
否则想帮你，也不太方便。
-- 发布时间：2013/9/5 15:25:00
--
表是“YWTYPE” 窗口已经设计好了，附件就是的。
-- 发布时间：2013/9/5 15:26:00
--
附件呢?
-- 发布时间：2013/9/5 15:35:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:复选框.rar |
-- 发布时间：2013/9/5 15:35:00
--
不是让你直接上个图片，是让你做个例子项目，包括这个表，并设计好这个窗口，并将这个项目传上来。
既然不做例子，我做个例子，你参考着做吧：
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目13.foxdb |
-- 发布时间：2013/9/5 15:39:00
--
商业版格式：
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目14.table |
-- 发布时间：2013/9/5 15:52:00
--
示例
-- 发布时间：2013/9/5 15:53:00
--
以下是引用狐狸爸爸在2013-9-5 15:39:00的发言：
商业版格式：
| 下载信息 [文件大小：312.0 KB 下载次数：1] | |
| 点击浏览该文件:管理项目14.table |
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:复选框.rar |
-- 发布时间：2013/9/5 15:54:00
--
不用了，看7楼。