主题：导出提示错误

If CurrentTable IsNot Nothing Then
    Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
    dlg.Filter= "Excel文件|*.xls" '设置筛选器
    If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
        Dim ex As New Exporter
        ex.SourceTableName = CurrentTable.name '指定导出表
        ex.Format = "Excel"
        ex.filepath = dlg.FileName  '指定目标文件
        ex.Export() '开始导出
    End If
End If

 

代码如上 导出的时候提示 不能重复定义字段

现在发现   只有在设计模式下用系统菜单栏里的导出 无论怎么导出都不会出错  我将系统命令直接写到按钮里面 还是会报错 Syscmd.Project.QuickExport() Syscmd.Project.ExportToExcel都试过 用命令窗口执行这些命令也不行 

在项目里执行代码就不行   删除bin文件已经试过了 还是不行  现在发现 只有一张表有这个问题  其他表正常

但是非常奇怪 在项目里用系统菜单栏里的导出命令就可以  把这个命令写到按钮或者放到命令窗口执行就不行 

找到问题了  带了_identify列就不行