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

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

 全部都要改啊。

 

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

点击浏览该文件:投资.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)

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)

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 dlg As new SaveFileDialog
dlg.Filter = "txt文件|*.txt"
dlg.FileName = "表A.txt"
If dlg.ShowDialog = DialogResult.OK Then
    Dim str As String = ""
    For Each dr As DataRow In DataTables("表A").DataRows
        str &= dr("第一列") & vbcrlf
    Next
    FileSys.WriteAllText(dlg.FileName,str, False)
End If

Dim str As String = ""
For Each dr As DataRow In DataTables("主题").DataRows
    str &= dr("字符串") & vbcrlf
Next
FileSys.WriteAllText("e:\投资\extern_user.txt",str, False)

那你要什么格式啊ASCII就是不支持中文的啊。

 

http://www.foxtable.com/help/topics/1980.htm

 

Dim str As String = ""
For Each dr As DataRow In DataTables("主题").DataRows
    str &= dr("字符串") & vbcrlf
Next
FileSys.WriteAllText("e:\投资\extern_user.txt",str, False, Encoding.Default)