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 & ".xls" '指定目标文件路径
ex.Format = "excel" '导出格式为符号分割的文本文件
'' ex.NewTableName = c & ".xls" ''指定文件名,注意无须扩展名
ex.Fields ="班级,学生姓名,身份证件号"
ex.filter = "班级 = '" & c & "'"
If filesys.fileexists(ex.filepath) Then
filesys.deletefile(ex.filepath)
End If
ex.Export() '开始导出
Next
End If
导出的EXCL的表的值都多了个 ' 是什么原因，如原来的张三，在excl表中是 '张三 谢谢
加好友 
发短信
Post By：2017/3/10 21:56:00 [只看该作者]
