- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 这个代码应该怎么写呢？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=28702)
-- 发布时间：2013/2/14 20:48:00
-- 这个代码应该怎么写呢？
Dim ex As New Exporter
ex.SourceTableName = "quhuojilu"
ex.FilePath = "\\\\PC-server\\取货\\gd.mdb"
ex.Filter = "[状态] < 5"
If FileSys.FileExists(ex.FilePath) Then\'如果目标文件已经存在
FileSys.DeleteFile(ex.FilePath) \'则删除之
End If
想在上面的代码基础上添加一个条件
如果checkbox被选定 则自动增加被筛选的 checkbox 为筛选条件
如图 如果al 和 apm 被选中 则在上面的代码里自动添加 ex.filter ="[商城] = al" and ex.fitler ="[商城] = apm"
（最终的筛选结果是："[状态] < 5" and ex.filter ="[商城] = al" and ex.fitler ="[商城] = apm" ）
此主题相关图片如下：??.png
[此贴子已经被作者于2013-2-14 20:49:39编辑过]
-- 发布时间：2013/2/16 10:50:00
--
这样看看吧。自己先修改对应的位置。
Dim c1 As Boolean = e.Form.Controls("xxxxxxxx").Checked
Dim c2 As Boolean = e.Form.Controls("xxxxxxxx").Checked
Dim c3 As Boolean = e.Form.Controls("xxxxxxxx").Checked
Dim filter As String = "1=1 "
If c1 Then filter &= " And [商城] = \'al\'"
If c2 Then filter &= " And [商城] = \'apm\'"
If c3 Then filter &= " And [商城] = \'uus\'"
Dim ex As New Exporter
ex.SourceTableName = "quhuojilu"
ex.FilePath = "\\\\PC-server\\取货\\gd.mdb"
ex.Filter = filter & " And [状态] < 5"
If FileSys.FileExists(ex.FilePath) Then\'如果目标文件已经存在
FileSys.DeleteFile(ex.FilePath) \'则删除之
End If
[此贴子已经被作者于2013-2-16 11:10:36编辑过]