以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]导出多选项表格的代码如何写? (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=146175) |
-- 作者:chh2321 -- 发布时间:2020/2/18 11:05:00 -- [求助]导出多选项表格的代码如何写? 老师,如图所示,窗口按钮代码如下: Dim t As Table = Tables("窗口1_Table53") Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog dlg.Filter= "Excel文件|*.xls" \'设置筛选器 If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮 For each c As object in e.Form.Controls("GroupBox5").Children If c.checked = True Then Dim txt As String = c.Text t.SaveExcel(dlg.FileName,"按" & txt & "导出") End If Next End If 请问代码如何修改才能导出一个文件(文件名=第一选项标签(+第二选项标签+...)) [此贴子已经被作者于2020/2/18 11:06:19编辑过]
|
-- 作者:有点蓝 -- 发布时间:2020/2/18 11:15:00 -- …… If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮 Dim txt As String For each c As object in e.Form.Controls("GroupBox5").Children If c.checked = True Then txt = txt & "_" c.Text End If Next t.SaveExcel(dlg.FileName,"按" & txt & "导出") End If |