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