主题：[求助]公式怎么写

If e.DataTable.Find("代码 = '" & e.NewValue & "' and [id] <> '" & e.DataRow("id") & "'") IsNot Nothing Then

按老师的要点将Indentify 改为 [ID] 又出现了这错误,是什么原因?
此主题相关图片如下：snap3.jpg


此主题相关图片如下：snap2.jpg

 全部都要改啊。

老师我将原文件打包上来,本人能力有限,帮我改改,谢谢

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

点击浏览该文件:投资.rar

 

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

点击浏览该文件:投资.table

Dim ex As New Exporter
ex.SourceTableName = "表A" '指定导出表
ex.FilePath = "d:\" '指定目标文件路径
ex.Format = "Delimited" '导出格式为符号分割的文本文件
ex.NewTableName = "表A" '指定文件名,注意无须扩展名
ex.Export() '开始导出

Dim str As String = FileSys.ReadAllText("d:\表A.txt")
FileSys.WriteAllText("d:\表A.txt", str, False, Encoding.ASCII)

 

 

1.上面的命令如何改成指定"字符串"列导出文体文件,现在是所有列. 2表A.txt多按点一下出错,能改成不出错提示.

 

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

点击浏览该文件:投资.table

If filesys.FileExists("d:\表A.txt") Then
filesys.DeleteFile("d:\表A.txt",2,2)
End If

Dim ex As New Exporter
ex.SourceTableName = "表A" '指定导出表
ex.FilePath = "d:\" '指定目标文件路径
ex.Format = "Delimited" '导出格式为符号分割的文本文件
ex.NewTableName = "表A" '指定文件名,注意无须扩展名
ex.Fields = "第一列,第二列,第三列"
ex.Export() '开始导出

Dim str As String = FileSys.ReadAllText("d:\表A.txt")
FileSys.WriteAllText("d:\表A.txt", str, False, Encoding.ASCII)

我文件没来的及出,老师这么快就改好了,先谢谢

老师我文件导出按扭不知错在什么地方,想只导出<字符串>列这部分内容,帮我修改一下.谢谢

 

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

点击浏览该文件:投资.table

If filesys.FileExists("e:\投资\extern_user.txt") Then
filesys.DeleteFile("e:\投资\extern_user.txt",2,2)
End If

Dim ex As New Exporter
ex.SourceTableName = "主题" '指定导出表
ex.FilePath = "e:\投资\" '指定目标文件路径
ex.Format = "Delimited" '导出格式为符号分割的文本文件
ex.NewTableName = "extern_user" '指定文件名,注意无须扩展名
ex.Fields = "字符串"
ex.Export() '开始导出

Dim str As String = FileSys.ReadAllText("e:\投资\extern_user.txt")
FileSys.WriteAllText("e:\投资\extern_user.txt", str, False, Encoding.ASCII)