以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  导出表时筛选  (http://foxtable.net/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
--  
我以为一楼只是标注颜色的部分才出错!