导出 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

共有1242人关注过本帖树形打印复制链接主题：导出

刘林

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1936 积分：14844 威望：0 精华：0 注册：2016/4/28 9:58:00

导出

Post By：2017/3/11 19:53:00 [只看该作者]

Dim dlg As New FolderBrowserDialog
If dlg.ShowDialog = DialogResult.Ok Then
    For Each c As String In DataTables("学生信息").GetValues("班级")
        Dim ex As new Exporter
       ex.SourceTableName = "学生信息"
        ex.FilePath = dlg.SelectedPath & c & "基本信息核对表.xlsx"
        ex.Format = "Excel2007"
             ex.Fields ="班级,学生姓名,身份证件号"
        ex.filter = "班级 = '" & c & "'"
        If filesys.fileexists(ex.filepath) Then
            filesys.deletefile(ex.filepath)
        End If
        ex.Export()
    Next
End If

老师，请问上面代码是想将学生信息分班导出文件保存到选择的目录里,现在是存在了上一次目录里，并且文件名前面也加了所选目录名称，是什么原因，怎么改，谢谢

刘林

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1936 积分：14844 威望：0 精华：0 注册：2016/4/28 9:58:00

Post By：2017/3/12 17:07:00 [只看该作者]

请问老师这是什么原因

有点色

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/3/12 19:35:00 [只看该作者]

试试这样

Dim dlg As New FolderBrowserDialog
If dlg.ShowDialog = DialogResult.Ok Then
    For Each c As String In DataTables("学生信息").GetValues("班级")
        Dim ex As new Exporter
        ex.SourceTableName = "学生信息"
        ex.FilePath = dlg.SelectedPath & "\" & c & "\基本信息核对表.xlsx"
        ex.Format = "Excel2007"
        ex.Fields ="班级,学生姓名,身份证件号"
        ex.filter = "班级 = '" & c & "'"
        If filesys.fileexists(ex.filepath) Then
            filesys.deletefile(ex.filepath)
        End If
        ex.Export()
    Next
End If

下一主题 >> << 上一主题

主题：导出