Foxtable(狐表)用户栏目专家坐堂 → [求助]导出多选项表格的代码如何写?


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

主题:[求助]导出多选项表格的代码如何写?

帅哥哟,离线,有人找我吗?
chh2321
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:253 积分:2573 威望:0 精华:0 注册:2016/8/8 9:50:00
[求助]导出多选项表格的代码如何写?  发帖心情 Post By: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编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110558 积分:562680 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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

 回到顶部