以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]导出多选项表格的代码如何写?  (http://www.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

结果:如果选择了两个选项,导出的Excel文件中出现两个文件名不同(两个选项标签名)但
此主题相关图片如下:2020-02-18_10-34-55.png
按此在新窗口浏览图片
内容完全相同的两个文件。

请问代码如何修改才能导出一个文件(文件名=第一选项标签(+第二选项标签+...))

[此贴子已经被作者于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