想把“成绩汇总”中 列名 为两个字符（如语文）的所有列 以及 身份证号,学生姓名,班级,座号 数据导出 不成功，请帮修改代码

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目12.table

Dim cs As String = "身份证号,学生姓名,班级,座号"
Dim lm As String
For Each dc As DataCol In DataTables("成绩汇总").DataCols
    If dc.Name.Length = 2 AndAlso cs.Contains(dc.Name) = False  Then
        lm &= dc.name & ","
    End If
Next

Dim ex As New Exporter
ex.SourceTableName = "成绩汇总"
ex.FilePath = ProjectPath & "Reports\\成绩汇总111.mdb"
ex.Fields = cs & "," & lm.Trim(",")
msgbox(ex.fields)
If FileSys.FileExists(ex.FilePath) Then \'如果目标文件已经存在
    FileSys.DeleteFile(ex.FilePath) \'则删除之
End If
ex.Export()