Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]单表多字段组合查询


  共有5858人关注过本帖树形打印复制链接

主题：[求助]单表多字段组合查询
帅哥哟，离线，有人找我吗？
Bin
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2013/6/5 10:04:00 [只看该作者]

你这个就按照帮助中写句可以了.直接照搬.改下名称就行了.

 回到顶部
帅哥哟，离线，有人找我吗？
laoshu4569
 小大  12楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：237 积分：1970 威望：0 精华：0 注册：2011/7/1 10:05:00 		  发帖心情 Post By：2013/6/5 10:11:00 [只看该作者]

可是我这样照搬写下来 告诉我 Filter 表达式不产生值

 回到顶部
帅哥哟，离线，有人找我吗？
laoshu4569
 小大  13楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：237 积分：1970 威望：0 精华：0 注册：2011/7/1 10:05:00 		  发帖心情 Post By：2013/6/5 10:12:00 [只看该作者]

事例上写的是查询内部表的时候 是这样 可是 针对外部数据源 写的话 也是一样吗

 回到顶部
帅哥哟，离线，有人找我吗？
laoshu4569
 小大  14楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：237 积分：1970 威望：0 精华：0 注册：2011/7/1 10:05:00 		  发帖心情 Post By：2013/6/5 10:59:00 [只看该作者]

我用SQLQuery  不想启动程序 直接在表中加载数据  查询到在往里面填 也就是上面代码 行不通 该怎么写呢

 回到顶部
帅哥哟，离线，有人找我吗？
laoshu4569
 小大  15楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：237 积分：1970 威望：0 精华：0 注册：2011/7/1 10:05:00 		  发帖心情 Post By：2013/6/5 11:05:00 [只看该作者]


If Connections("DA").SourceType = 1 Then 'Access数据源
    With e.Form.Controls("ComboBox3")
        If .value IsNot Nothing Then
            Tables("检索查询_Table1").Fill("Select * From [档案新标准] Where 机构 ='" & .value & "'","DA",False)
        End If
    End With
    With e.Form.Controls("ComboBox4")
        If .value IsNot Nothing Then
            Tables("检索查询_Table1").Fill("Select * From [档案新标准] Where 保管期限 ='" & .value & "'","DA",False)
        End If
    End With
End If

现在这样的查询是两个控件单独查询 是可以 但是如果既要单独查询 又可以两个组合起来 要怎么拼接起来  上面已经说了 用判断累加的形式  最后组合起来 可是写不下去了
[此贴子已经被作者于2013-6-5 11:10:06编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
don
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1812 积分：12993 威望：0 精华：14 注册：2008/10/11 18:07:00 		  发帖心情 Post By：2013/6/5 12:46:00 [只看该作者]

If Connections("DA").SourceType = 1 Then 'Access数据源
    Dim SQL,s1,s2 As String
    s1 = e.Form.Controls("ComboBox3").value
    s2 = e.Form.Controls("ComboBox4").value

    If s1 > "" Then  SQL = "机构 = '" & s1 & "'"    
    If s2 > "" Then  
        If SQL > "" Then SQL+ =" And "
        SQL+ = "保管期限 = '" & s2 & "'"
    End if
    If SQL IsNot Nothing  Then
        Tables("检索查询_Table1").Fill("Select * From {档案新标准} Where " & SQL,"DA",False)
    End If
End If
[此贴子已经被作者于2013-6-5 12:48:06编辑过]
 回到顶部
总数 16 上一页 1 2
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03320 秒, 4 次数据查询