以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  导出表时筛选  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=24640)
--  作者：胡啰啰儿
--  发布时间：2012/10/19 0:41:00
--  导出表时筛选

想从选中行开始导出，如下代码，可总是出错     _identify换成_sortkey也不行，应该怎么做？

 

Dim ex As New Exporter
ex.SourceTableName = "表一"
ex.FilePath =ProjectPath & "aaa.mdb"
ex.Filter = "_Identify >= " & CurrentTable.Current("_Identify")
If FileSys.FileExists(ex.FilePath) Then \'如果目标文件已经存在
    FileSys.DeleteFile(ex.FilePath) \'则删除之
End If
ex.Export()

 

 

 

假如我想再加一个标记列，如果导出了，标记列就选中，下次就直接导出未标记的，怎么做？

 

谢谢各位大师
--  作者：程兴刚
--  发布时间：2012/10/19 5:52:00
--  

未测试，不知道行不行：

 

Dim ex As New Exporter
ex.SourceTableName = "表一"
ex.FilePath =ProjectPath & "aaa.mdb"
ex.Filter = "_Identify >= " & CurrentTable.Current("_Identify") & And "标记列 = false"
If FileSys.FileExists(ex.FilePath) Then \'如果目标文件已经存在
    FileSys.DeleteFile(ex.FilePath) \'则删除之
End If
ex.Export()
DataTables(CurrentTable.name).ReplaceFor("标记列",True,"标记列 = false")
--  作者：胡啰啰儿
--  发布时间：2012/10/19 9:12:00
--  
不行啊，ex.Filter = "_Identify >= " & CurrentTable.Current("_Identify")这条本来就错误，加上后面的And ***也不对
--  作者：lin_hailun
--  发布时间：2012/10/19 9:26:00
--  
 楼主这条代码不会报错吧？

 ex.Filter = "_Identify >= " & CurrentTable.Current("_Identify")

 这条代码要想达到的目的是什么？
--  作者：lin_hailun
--  发布时间：2012/10/19 9:32:00
--  
 哦哦，是出错。要给[_Identify]加一个中括号。

 再有就是，应该用Tables("表一").Current("_Identify")
[此贴子已经被作者于2012-10-19 9:32:38编辑过]
--  作者：程兴刚
--  发布时间：2012/10/19 17:46:00
--  
我以为一楼只是标注颜色的部分才出错！