- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 导出EXCEL时，只导出罗辑列中已勾选的，有代码，求助 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=64066)
-- 发布时间：2015/2/4 11:34:00
-- 导出EXCEL时，只导出罗辑列中已勾选的，有代码，求助
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Tables("台账").SaveExcel(dlg.FileName, "订单") \'保存文件
End If
代码应该怎么加，谢谢各位老师
-- 发布时间：2015/2/4 11:37:00
--
Tables("台账").FIlter="逻辑列=True"
Tables("台账").SaveExcel(dlg.FileName, "订单") \'保存文件
-- 发布时间：2015/2/4 13:49:00
--
还是不对。
加上这段以后，变成自动全部勾选了。没有筛选导出
-- 发布时间：2015/2/4 14:18:00
--
回复3楼，2楼的代码没有问题。就是先筛选，然后导出的啊。
-- 发布时间：2015/2/4 14:29:00
--
嗯，又测了一下，没问题，是和一个全选控件有冲突，这该怎么处理呢，笨死了，求BIN老师指教
全选代码：
Dim gx As WinForm.CheckBox = e.Form.Controls("CheckBox2")
For Each r As Row In Tables("总台账").Rows
r("结算") = gx.Checked = True
Next
-- 发布时间：2015/2/4 14:32:00
--
Dim gx As WinForm.CheckBox = e.Form.Controls("CheckBox2")
For Each r As Row In Tables("总台账").Rows
r("结算") = gx.Checked
Next
-- 发布时间：2015/2/4 14:35:00
--
纠结了一中午的事，在你的帮助下，一会就解决了。感谢
